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BITS AND PIECES 

Howard Y. Gosman 



VERSAPAYROLL 

We have just gotten a preview of a 
this new product from the program 
development staff at H & E Compu- 
tronics. VersaPayroll is a menu-driven 
program, written in BASIC, that can 
operate either as an isolated program 
or with the four other modules of the 
VersaBusiness System (VersaLedger, 
VersaReceivables, VersaPayables and 
Versalnventory). If used with Versa- 
Ledger, VersaPayroll will post end-of- 
month totals to the VersaLedger file. 
VersaPayroll has a very large capacity 
compared to most other payroll pro- 
grams— 300 employees on a Model I, 
600 employees on a Model III, Apple 
or CP/M computer, 1200 employees 
on a Model II, and virtually unlimited 
on hard disk drives. VersaPayroll re- 
quires at least one disk drive and 48K 
of memory. 

VersaPayroll consists of two pro- 
grams, the Initialization Program and 
the Payroll Program, that manage three 



diskette files. The first file, INITDATA, 
holds standards needed by the system 
— your company's address, a number 
indicating how many disk drives are 
attached, and all of the Federal, State 
and Local tax tables. This file comes 
with current Federal and FICA tables 
already entered. The Initialization Pro- 
gram prompts you to enter all of the 
needed information, and allows you to 
display the tax tables to check accuracy. 
The Initialization Program must be 
used before operating the main Payroll 
Program for the first time. The Initiali- 
zation Program is also used later to 
update the INITDATA file — when tax 
rates change. 

The Payroll Program keeps track of 
the other two files: 

EMPLDATA holds general personal 
information about each employee— 
their name, address, social security 
number, state and local code, marital 
status, number of exemptions, salary 

continued on page 6 
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For fast relief 

Take DOSPLUS 3.4 



Do you have that tired 
dragged out feeling 
known as "DOS Drag 
from an operating system 
that is just too slow? Do 
you have "Computis 
interruptous" because 
you spend more time 
with your DOS manual 
than you do at your com- 
puter? Has an undepend- 
able DOS got you down 
with the inadvertent "Dumps' 




In addition, you have the 

convenience of repeating 

the last DOS command 

with "/" <ENTER>, a 

single file convert from 

Model III TRSDOS, file 

directory supported for 

Model III TRSDOS disks, 

complete device routing 

supported with FORCE and 

I )IN, and the ability to read or 

« ate 40 track disks in 80 track 

us many other time and effort 

iiures. 



Then you need DOSPLUS 3.4. 
DOSPLUS 3.4 contains all the active 
ingredients for a quick recovery. Dependable fast 
action features like instant boot-up, BASIC array sort 
(multi-key, multi-array), Tape/Disk-Disk/Tape utility 
(with program relocator). Input® (controlled screen 
input from BASIC), and complete disk editing 
features including random access file editing and 
ASCII modification on sector dump utility 

And who wouldn't feel better with proven fea- 
tures like the ability to use a "DO" (command 
chaining) file from within a BASIC program, 
and more reliable BACKUP and FORAAAT utilities. 



Of course, in order for a prescription to work, 
you've got to follow instructions — in this case 
the instructions are contained in the new 
easy to use easy to follow 240 page DOSPLUS 
users guide with system technical reference section. 
So, if you're experiencing any DOS 
related discomfort, get instant relief $"i ^^^^95 



Get DOSPLUS 3.4 



^^ 




MICRO SYSTEMS 
SOFTWARE, INC. 

5846 Funston Street • Hollywood, FL 33023 



DQSPIUS 

First in tiie Industry baclceci by a lifetime warranty. 

/QUtcjHe of Fla ) for VISA/MASTERCHAROE/CaD orders 



CALL TOLL FREE 
1-800-327-8724 



TOLL FREE UNES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical intof mation 

call (305) 963-3390 or drop us a card. Dealers inquiries inviled 




If you have 

anything to do 

with the TRS-80* 

System you 

should be 

reading the 

EIGHTY 

SYSTEM 

NEWSLETTER 

every week! 



Don't miss a single issue of the new Eighty 
System Newsletter. .. published weekly and 
mailed every Friday by First Class Mail. This 
is the only publication designed for personnel 
in the TRS-80* industry, including manufac- 
turers, distributors, dealers and computer 
users. The Eighty System Newsletter is 
compiled and edited by Ken Gordon, producer 
of the National TRS-80* Show, the Eighty/ 
Apple Show, the NJ Microcomputer Show, 
and publisher of the Amateur Radio Equip- 
ment Directory. Here is valuable information 
in professionally prepared format about TRS- 
80* hardware, software, peripherals, trends in 
the industry, and latest news. In addition, 
each weekly issue contains brief digests of 
articles related to the TRS-80* system 
appearing in over 100 computer related and 
general interest publications. This bibliography 
will save you both time and money in keeping 
up with articles in print on the TRS-80* 
computer system. The Eighty System News- 
letter is a must for all active TRS-80* users, 
plus anyone involved in any way with the 
manufacturing, distributing or retailing of 
TRS-BO* products. 

Subscribe today: Mail the coupon with 
your chec(< for $39 for the next 52 weekly 
issues (sent First Class Mail that's only 
75€ per week.) If for any reason you are 
not satisfied with the Eighty System 
Newsletter — we will refund the undelivered 
portion of your subscription. 



THE CRYSTAL BALL 

(News and Rumors of Interest to TRS-80™ Owners) 






KENGORE CORPORATION I 

3001 Route 27 I 

Franklin Park, NJ 08823 | 

(201)297-2526 I 

D Enclosed is my check for | 

$39 for the next 52 issues | 

of The Eighty System | 

Newsletter (sent First Glass . 

Mail). I 

Name . 

Company , 

Address ' 

City State Zip ■ 

"TRS-80 is a Registered Trademark of Tandy ■ 

Corporation/Radio Shacl^ Division. B 



IBM News 

The success of the IBM Personal 
Computer has been so great that it is 
changing the entire look of the field of 
personal computing. For example, 
Sears, which is one of the only two 
outlets for the PC (the other being 
ComputerLand stores), has disclosed 
that IBM products have taken a "large 
lead in sales volume among products 
carried in the stores." Sears also 
carries the NEC PC-8001A, Vector 
Graphics Series 3, and a Wang word 
processor. 

Rumors are circulating that IBM will 
shortly announce an expansion of its 
dealer base for the PC. A large number 
of independent retailers have applied 
for dealerships, but in the meantime 
dealers have been experiencing availa- 
bility problems because of the large 
demand for the PG. IBM is said to be 
planning to ship 1.2 million personal 
computers by 1984. 

Rumors are also circulating that IBM 
plans to introduce two new products: 

• a mini-floppy disk drive that uses 
disks smaller than 5-1/4 inches. 

• a "big brother" for the Personal 
Computer. 

Turn your APPLE into an IBM PC? 

Two companies have announced 
8088 16-bit microprocessor cards that 
convert the Apple II computer into an 
IBM PG "work alike." The cards are the 
"88 Card" from Coprocessors, Inc. 
and the "MetaGard", from Metamor- 
phic Systems, Inc. Both cards come 
with 64K RAM, and they plug into 
vacant slots in the Apple. Both cards 
are said to be fully compatible with 
the Apple peripherals and to offer 
users the choice of running programs 
degigned either for the Apple or for 
the IBM PG. 

There are some significant differences 
between the two cards, however. The 
MetaGard allows simultaneous opera- 
tion of Apple and IBM programs, while 
the 88 Card does not Digital Research's 
GP/M-86 (a operating system which 
has not yet been released for the IBM 
PG) comes standard with the Meta- 
Gard. Both cards are similar to Micro- 
soft's Softcard, which allows Apples to 
run GP/M programs. They're not cheap, 



however: the 88 Card has an "introduc- 
tory" price of $899, and the MetaGard 
is listed at $980. 

Zenith Working on 16-Bit Micro 

Zenith Corp. will release a 16-bit 
microcomputer in July. Dubbed the Z- 
100 in preliminary work, it will be 
upwardly compatible with the present 
Z-89 8-bit micro. Although Microsoft 
and other companies are doing signifi- 
cant development work for the compu- 
ter, they are forbidden to release any 
information about it due to a non- 
disclosure agreement. 

Zenith, the parent corporation of 
Heath, presently produces 1 50 compu- 
ters a day in its Benton Harbor factory. 
Heathkit now has 60 stores, and ten 
more will open this year. In 1 980, 40% 
of the total Heath/Zenith sales was in 
computer products. The Heathkit Users 
Croup presently has 13,500 members 
and is adding 400 members per 
month. 

Software Sales Expected 
to Triple in Next Year 

Sales of software will triple in a year, 
according to David S. Wagman, presi- 
dent of Softsel Computer Products, a 
major software distributor. Wagman 
predicts that, as users become more 
sophisticated, the need for specialized 
applications will spur the proliferation 
of new software. 

Wagman bases his predictions on 
two other factors: rising software devel- 
opment costs, which will boost retail 
prices, plus falling hardware costs. As 
competition increases, hardware 
manufacturers will find new and better 
ways to produce equipment faster and 
better. Software, on the other hand, is 
a labor-intensive industry, resulting in 
just the opposite price trend. 

The retail prices of software packages 
has been increasing by about 20% a 
year. The only way that software prices 
will drop is through a push in mass 
marketing to make up for high develop- 
ment costs. 

Recently Dennis Mandell, president 
of On-Line Microcenters, predicted 
that hardware and software sales will 
be about even by 1985. Currently his 
chain of stores gets 80% of its revenue 
from sales of hardware products, a 
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WHY 

THE LATEST BLAST 
FROM BIG FIVE... 

Jg^DEFENSE 



ALL games: 

16K Level 2, Mod 1 + Mod 3 Cassette: $15.95 
S2k Level 2, Mod 1 + Mod 3 Diskette: $19.95 
10% discount for 2 games, 15% for 3 or more 
Games may be played witfi or wittiout Joystick./ 



IS THE ALPHA JOYSTICK 
SUCH A SUCCESS ? 



Because of games like these. 




SCARFMAN 




DEFENSE 
COMMAND 






Big Five has done It again! Now the most popular 
arcade game of all time has a fascinating new twist. 
The Invaders are back! You are alone, valiantly 
defending the all important nuclear fuel cannister 
stockpile from a convoy of thieving aliens who 
repeatedly break off and attack in precision forma- 
tions. An alien passes your guard, swiftly snatching 
up a cannister and flying straight off. Quick' you 
have one last chance to blast him out of the sky. 
Great action and sound! 



BEST 
k^ELLERy 



SCARFMAN 

THE LATEST ARCADE CRAZE now runs on your 

TRS-80. 

It's eat or be eaten. You control Scarfman around 

the maze, gobbing up everything in your path. You 

attempt to eat it all before the monsters devour you. 

Difficulty increases as game progresses. Excellent 

high speed machine language action game. From 

The Cornsoft Group. With sound. 

CAUTION: Played with the Alpha Joystick, Scarfman 

may become addictive. 




SUPER NOVA 



Asteroids float ominously around ttie 
screen. You must destroy trie asteroids 
OeJore they destroy you! (Big asteroids 
break into little ones.) Your ship will 
respond to thrust, rotate, hyperspace 
and fire. Watch out tor that saucer wilti 
the laser! As reviewed in May 1981 Byte 
Magazine. 



LUNAR LANDER 



As a vast panorama moonscape scrolls 
by. select one of many landing sights. 
The more perilous the spot, the more 
points scored —it you can land safely 
You control LEM main engines and side 
thrusters. Absolutely the best use of 
TRS-80 graphics we have evei seen' 
From Adventure International. With 
sound. 






AHACKFORC^ 

As your ship appears on the bottom of 
the maze, eight alien ships appear on the 
lop. ail traveling directly at you! You 
move toward Ihem and lire missiles. But 
the more aliens you destroy, the faster 
the remaining ones become. II you get 
too good you must endure the "Flag- 
ship" .. With sound effects! 




COSMIC FIGHTER METEOR MISSION ir 



Your ship comes out ot hyperspace 
under a convoy of aliens. You destroy 
every one. But another set appears. 
These seem more intelligent. You 
eliminate them. too. Your fuel supply is 
diminishing. You must destroy two more 
sets before you can dock. The space 



station is now on your scanner 
sound! 



. With 



As you look down on your view, 
astronauts cry out for rescue You must 
maneuver through the asleroids & 
meteors. (Can you get back to the space 
station?) Fire lasers to destroy the 
asteroids, but watch out. there could be 
an alien FLAGSHIP lurking includes 
sound effects' 



OMY 

$39.95 

(MODEL I) 



THE ALPHA joystick: 
REAL ARCADE ACTION 

DFeatures the famous ATARI JOYSTICK 
DWorks with any Level-f I or disk system 
□Plugs directly into KB or E/l (next to printer port) 
OCompatible with any other TRS-80 accessories 
DSaves your keyboard 

DFun to experiment in BASIC. Simply use A = INP(0) 
to read the joystick 
QFully assembled, ready to plug In and use. 

Price includes Atari Joystick + Alpha Interface + 
Instructions + demo program. The Alpha Joystick 
Is backed by an unconditional, money back 
guarantee. If you are not delighted with it,. return it 
within 14 days for a prompt and courteous refund. 

.Mi ALPHA Products 





MODEL III 
JOYSTICK 

ONLY 

$39.95 



(Model I 
version 
shown > 



79-04A Jamaica Ave., Woodhaven. NY 11421 



(212)296-5916 



Toll Free 
Order Line 

aOO'221'0916 

Hours: 9AM-SPM. E.S.T. 
For Info Call (212) 296-5916 



ADD $2.00 PER ORDER FOR SHIPPING AND HANDLING 

WE ACCEPT VISA, t^ASTERCARD. CHECKS. M.O. 

C.O.D. ADD $3.00 EXTRA. 

NY RESIDENTS ADD SALES TAX. 

OVERSEAS, FPO, APO; ADD 10%. 

DEALER DISCOUNTS AVAILABLE. 
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continued from page 2 

6t hsuHy fate sf pav, pay period, and 

designated amounts for up to three 
special deductions (optional). As each 
employee is entered into the file, an 
employee number is assigned by the 
computer. When an employee leaves, 
their record is classified as inactive, 
and the employee number is not 
reassigned. All of the information in 
this file can be easily updated when 
necessary. 

PAYDATA holds all of the actual 
payroll records for each employee- 
data on the last paycheck issued, 
month-to-date totals, last month's 
totals, quarter-to-date totals, and year- 
to-date totals. This file can be viewed 
at any time, and it can even be edited, 
although the author definitely does 
not recommend it, because the altera- 
tion of figures calculated by the com- 
puter will affect later calculations, and 
cause discrepancies in your permanent 
records. 

Using the data stored in all three 
files, the Payroll Program will generate 
all needed reports and paychecks. The 
general procedure to follow when 
printing paychecks is to print out a 
payroll register, which involves the 
calculation of all of the data for each 
paycheck (using a default value of, for 
instance, 40 hours), and the printing 
of the register itself, which shows how 
each check will look. Then you look for 
and correct any errors in any employee's 
paycheck data (number of hours 
worked, etc.), and reprint the register, 
looking again to make sure everything's 
correct. Then you ask for the "Print 
Paychecks" procedure, where you are 
first asked to confirm the date and 
starting check number, and then shown 
each check and asked to verify that it 
should be printed. If you print a check, 
the employee's permanent pay record 
is updated at the same time— if you 
choose not to print a check, that 
employee's record is not updated. 
VersaPayroll also allows a single check 
to be issued at any time, for an 
advance or reimbursement for ex- 
penses. The check can be a normal 
paycheck, with hours and deductions 
calculated, or a straight sum, in which 
case no deductions apply. 

The Report Printing procedure 
generates all needed and government- 
required reports, including: 



947 Report. Quarterly report of total 
quarterly wages, withholdings, taxable 
PICA wages paid and PICA withholdings. 
Federal Unemployment Tax Report. 
Quarterly report stating total year-to- 
date and quarter-to-date wages paid 
by the employer, and total wages 
subject to federal unemployment tax. 

State Unemployment Tax Report. 
This report includes a list of all the 
employees including their social security 
numbers, their federally taxable wages 
and state taxable wages, their total 
wages, year-to-date gross pay and 
year-to-date PICA tax payments. 

W-2 Forms. This program will elimi- 
nate that yearly scramble to get W-2s 
out by January 31st. 

Employee End-of-Quarter Report. 
This summary of each employee's 
permanent record includes all of their 
personal data plus their pay data 
records. The information is presented 
in five columns, showing their last 
paycheck, the current month, the 
previous month, quarter-to-date totals 
and year-to-date totals. Grand totals 
follow the employee listing. 

Employee Data Sheet. This report 
lists all active and inactive employees, 
with all pertinent personal data, as 
well as their pay and their active 
status. This report is helpful to have on 
hand when running VersaPayroll, since 
it lists each employee with his or her 
employee number, which is needed 
for access to that employee's record. 

At the end of every month, all 
needed reports should be printed, and 
then you use the "Initialize New 
Month" procedure, which stores the 
current month-to-date figures as "last 
month's data," and clears the current- 
month record to prepare for the new 
month's data. If a new quarter is 
beginning, all quarterly reports should 
be printed, and then the file that 
contains the quarter-to-date records is 
cleared out to prepare it for the new 
quarter. It is suggested that an archival 
disk of each month's data be made as 
a permanent record. 

VersaPayroll's operating manual 
clearly describes how to use every 
feature of the program, and also has an 
appendix including instructions on 
how to start a data diskette, how to 
save a duplicate of each month's data 
diskette for archival purposes, the 
procedure for starting a new fiscal 
year, and how to customize the head- 



ings for the 3 optional special deduc- 
tions. 

VersaPayroll was written at H & E 
Computronics, and full software sup- 
port is offered by their staff, as well as 
a 30-day money-back guarantee. This 
program is easy to use, and the 
reference manual serves as a good 
self-teaching guide. A person with no 
previous computer or payroll exper- 
ience can learn to operate this pro- 
gram. VersaPayroll is priced at $99.95, 
the same price as each of the other 
four modules of the VersaBusiness 
System. 

"Lemon Aid" Loader 

We have just had a chance to try the 
new "Lemon Aid Loader" from Lemons 
Technical Services, 325 North Highway 
65, Buffalo, MO 65622, telephone 
(417) 345-7634. This remarkable little 
product is plugged in between the 
computer and the cassette recorder, 
and it makes it an easy matter to load 
"impossible" tapes. You turn up the 
volume on the cassette recorder all 
the way, and the box takes cares of the 
rest. 

The loader works only for 500 baud 
cassette tapes, for the TRS-80 Model I 
or the low speed of the Model III. 

CHARTS 

CHARTS is a computer program 
from CP/$, P. O. Box 77, Piano Texas 
75074 that draws bar graphs. It was 
originally intended to be used by 
investors, but because it is so versatile 
and easy to operate, it can be used by 
anyone to keep track of any kind of 
data. No knowledge of programming is 
necessary, because CHART$ provides 
an easy-to-follow sequence of menus 
and prompts that leads the user 
through the program execution. 

CHARTS is available on disk for 
48K, 2-disk TRS-80 Models I and III. A 
printer is optional but strongly recom- 
mended. Versions are available for the 
Epson MX-80, Radio Shack Line Printers 
V and VI, Okidata Microline and other 
printers that use block graphics. The 
price is $79.95, and the manual may 
be purchased separately for $9.95. 

We Are Computers 

A retail computer store has opened 
near to our area (Elmsford, New York), 
and there are some very interesting 
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things about this store that might be of 
interest to our readers. For example, 
the store sells Radio Shack TRS-80 
Model III and Color Computers at 
prices less than Radio Shack! It also 
has excellent bargains on hardware 
such as disk drives, RS-232-C inter- 
faces and modems. Finally, it has a 
repair service that can handle both 
Radio Shack and non-Radio Shack 
products. 

The store maintains a dial-up bulletin 
board system for anyone wanting to 
leave messages at (914) 592-5385. If 
you want to tatk to someone in 
person, call (914) 592-5090. ■ 

LETTERS TO THE EDITOR 

Crystal Ball True? 

First of all, I would like to congratu- 
late you on the fine magazine you 
publish. It was on the strength of your 
April 1981 Epson MX-80 hardware 
review that I purchased that same 
printer, and I have not been disap- 
pointed. 

The reason for this letter however is 
to inquire about the CRYSTAL BALL 
prediction in the September, 1981 
issue of your magazine. In the above 
prediction you stated that LIFEBOAT 
ASSOCIATES was developing a board 
for the TRS-80 Model 1 1 1 that will make 
the CP/M disk operatind system and 
several other features available. In 
same, it was also mentioned that a 
second board was under devlopement 
to give the video monitor the 24 by 80 
character display. 

My question is, have these boards 
been developed, and if so, how 
successful are they? 

Also, it appears that LIFEBOAT 
ASSOCIATES does not advertise in 
your magazine, and I do not have their 
address to inquiTe about the atoremen- 
tioned boards. 

It is also noted that, while your 
magazine does a great job in reviewing 
software packages, there seems to be 
a lack of hardware review. In my case 
for example, I would like to purchase 
the internal disk drives, but not from 
Radio Shack. Considering the number 
of companies that sell disk drives for 
the Model III, selection becomes very 
difficult, and nowhere can you find 
information about the mechanical relia- 



bility of the units being advertised in 
the various magazines. 

It is recognized that a mechanical 
description and estimate of reliability 
is more difficult than a software 
review, but what good does a super 
duper DOS do if the drives are not 
reliable or if the heads require frequent 
alignment? 

I'm sure that you will keep up the 
good work you are doing and that your 
magazine format will improve even 
more. 

J. Geerinck 
18 Heneager Street 
Port Hope, Ontario 
Canada L1A 3P7 

Lifeboat Associates did wor/c on the 
devices we predicted, but did not 
release them. Undoubtedly part of t/ie 
reason has been that they require 
hardware modifications not supported 
by Radio Shack. Microcomputer Tech- 
nology, inc., 3304 W. MacArthur, Santa 
Ana, CA 92704 has both of the 
products you mentioned above, as 
well as several other modifications for 
the Model III. 

Facts behind Mr. Shirley's Letter 

I am writing to you in regards to the 
letter in your March issue of Compu- 
tronics from Jon Shirley of Radio Shack 
to myself. 

The letter which you published was 
his response to my letter regarding his 
column. In my letter to him I was 
stating that he should not be the judge 
of all small manufacturers without 
being cfrtain. 

1 suggest to you that in the future 
before you publish an article be aware 
of all facts pertaining to it. 

Warrent Rosenkranz, President 
VR Data Corp. 
777 Henderson Blvd. N-6 
Folcroft Industrial Park 
Folcroft, PA. 19032 

Repair Problems 

I just read a letter in the March 
issue, and I feel I must respond. 

I am in the Navy, and consequently 
I am transferred between duty stations 
periodically. One significant factor in 
my decision to purchase a TRS-80 was 
the policy that any Radio Shack store 



wouk honor a warranty for the RS 
product regardless of which one I 
purchased the product in. I made my 
initial hardware purchase at the Radio 
Shack store in the Charles Towne Mall 
in Charleston, S. C. when I was 
stationed there. Subsequently 1 was 
transferred to Massachusetts. 

Here I went to my local store in 
South Weymouth and had the lower 
case mod and the keypad mod installed. 
The manager sent it to the area repair 
center for installation. When I received 
it back the BREAK button physically 
would not depress. It went back to the 
repair center. When it came back the 
7,8, and 9 keys on the keypad would 
not release as they were binding on 

continued on page 8 



OPTION 
INVESTING 



l=-ROI3Ft<=»M #=»IM«=»L_V'SES 
RETLJRIM FROM LISTED 
STOCK OF=-T I OM 

I IMVEST I IMS 



HANDLES CALLS, PUTS, SPREADS, IN 
AND OUT; COMMISSIONS, RISK, COST 
OF MONEY, DIVIDENDS. TABLES AND 
QRAPHS. PRINTS, STORES TO DISK. 
INDEXED MANUAL A COMPLETE OUIDE 
TO OPTION INVESTING. M/C & VISA. 
«12S. SEND FOR FREE BROCHURE. 
OF=-T I OIMS— SO , BOX 471 P 

CONCORD, MASS 01742 

*TR«l)EMRt; IflNDY CORP *TR«DEI«RI! APPLE CORPUTER, IRC 
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HM ABOUT VOUR WR PERSONAl RUBIC CUBE COACH? 
liK LEVEL II OR 32K DISK tilt ORLV I14.75 !! 
THE 'RUBIC CUBE COACH' KILL TURK VOUR TRS-80 INTO A 
POUERFUL TOOL TO HELP DEVELOP VOUR SKILLS IN SOLVIRG THE 
POPULAR mm. VOU can describe VOUR OM COSE TO THE 
COnPUTER AMD THEH EITHER RACE ASAINST THE CORPUTER OR HAVE 
IT SOLVE YOUR CUBE FOR VUU - SHOHINS VOU EACH TURR EVERV 
STEP OF THE KAVI IT EVEH ALLOHS VOU TO USE ITS OHH TECH- 
RIOUES OR ERTER VOUR DWI TO EKPERIHEHT KITH! ARD MORE! 

17141 621-7747 
HtS CORPUTER C0.-1024 ALAROSA DR.~CLARENOMT,U «1711 
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POCKET COMPUTER OWNERS 



At last.. .POWERFUL software for your Radio Shack or Sharp 
Pocket Computer! 



HMTH PAC 1 ($13.95 on cassette) 
—Matrix !nv/Det/Sim Eqn (up to 9x9) 
—Matrix operations (add. multipiy, etc.) 
— Polynomiai least squares (to 9th order) 
—Coordinate transformations 
—Triangle solutions 
HATH PAC 2 ($13.95 on cassette) 
—Multiple regression {to 9 variables) 
-Interpolation (6 different types) 
—Simultaneous equations (to 11 eqns) 
—Polynomial root finder 
—Vector calculator 



These programs are the best we've seen. The matrix inverse and 
Sim. eqn. routines use partial pivoting lo handle all but singular 
systems! 

ALSO AVAILABLE: Games Pac 1 , Statistics Pac 1 and 2, Finance 
Pac 1, Utility Pac 1. 

Complete Documentation. ($9.95 without cassette). Send for free 
information. WA residents add 5.5% sales tax. 



SOUND SOFTWARE SYSTEMS 
PO BOX 1365 RENTON, WA 98057 



YOU CAN PAY MORE 
BUT YOU CAN'T . 
GETMOREI I 




I16K 



Model I 
$839 

Model III48K 
2 disc & RS232C 

$2059 

BUY DIRECT. These are just a few of our great 
offers wlilch include Printers, Modems, Com- 
puters, Periplierals, Disc Drives, Software and 
more, call toll free 1-800-343-8124 




Color Computer 4K 
$310 

w/16KExt. Basic 

$459 

W/32K Ext. Basic 

$525 



We have the lowest 
possible fully 
warranteed prices 
and a lull complement 
ol Radio Shack Software. 



comi 

Write for your WU^ 

free catalog. 

245A Great Road 
Littleton. MA 01460 

VSk^ 617 . 486 • 3193 



TRS-80 MODEL r" 
GOLDPLUG-80 

Eliminate disk re-boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) $9.95 ea 

Full set, six connectors. . . $54.95 



EAP COMPANY 

P.O. Box 14, Keller, TX 76248 

(817)498-4242 

*TRS-80isa trademark of 

Tandy Corp. 



continued from page 7 

the bezel. Back to the repair center. 
On the third try and after a month 
involved they completed the simple 
installation right. 

Then I had a problem with my Line 
Printer IV while it was still in warranty. 
I took it to my local store, where the 
manager sent it to the repair center. 
After two weeks he called to find out 
its status. He was told it would be back 
the following week. Friday of the 
following week I went in to get it. It 
was not back and the manager called 
the repair center again. He was told it 
needed a new PC board and they did 
not know when they could locate one. 
The manager called the district office 
but nothing was done. So I called Ft. 
Worth. After I related the story I was 
told they would check into it. The next 
day I came home from work and had a 
message to call the district office in 
Charleston, S.C. since the printer was 
purchased in that district. A call to 
them resulted in my being given a new 
LPIV a couple of days later. I was 
without a printer for over a month. 

So one of the quality repair centers 
Mr. Shirley referred to could not do a 
simple keypad installation. They also 
promised a return date for my printer 
before they even knew if they had the 
parts to fix it— they acknowledged it 
was very sick. A small company could 
probably have repaired the printer 
they sold me in less than a month of 
lost time, and they could probably do 
a keypad installation right the first 
time — at least with enough quality 
control to check it out before they 
returned it. 

My local store manager was MOST 
helpful, even though I did NOT 
purchase most of my TRS-80 products 
through him. The district office was 
not supportive of him or interested in 
assisting me. 

I will be transferred in July to San 
Diego. I worry that there the store 
managers may be out of the mold of 
the Boston district office and repair 
center here and not that of my local 
store manager. 

I have a few thousand dollars 
invested in my TRS-80 Model I hard- 
ware and software. If I did not, I would 
take my own advice that I give to 
friends and purchase an OSBORNE for 
less money with more capability just 



as my friends have. I continue my love- 
hate relationship with TANDY: love 
because I bought my first computer 
from them, and hate because I feel 
that they do not care after I purchased 
their products as indicated by numer- 
ous things such as the above or the 
lack of guidance they have given about 
dirty contacts, which causes a reset in 
the middle of my preparing this letter. 
I write to you because I wish to 
rebut Mr. Shirley's letter. I wrote the 
same information to Tandy in Ft. 
Worth, addressed to the author of the 
"View from the Seventh Floor." (I 
know they got the letter because they 
deposited the check I enclosed for a 
subscription to their newsletter. I must 
now pay for them to send me the 
corrections to programs I purchased 
from them.) They never answered my 
letter. 

Lt. Carl Wales, USN 

205 B Lyra Drive 

South Weymouth, MA 02190 

Praise for Program Conversions 

When I received my February issue 
of Computronics, I quickly spotted 
your article on program conversions. 
My instantaneous thought was "great" 
— this is what I had hoped somebody 
would do for a long time," but my 
hopes were dismayed by reading on 
and finding that the conversion article 
was strickly confined to the TRS-80 
Models I, II, and III. 

I am one of those frustrated owners 
of a Model III that has very often come 
across super looking magazine pro- 
grams only to find they were written 
for Apple, Pet or some other obscure 
computing contraptions! 

I am basically ignorant when it 
comes to writing programs. I can, and 
often do, input a magazine program, 
such as the many that are found in 
Computronics, and can often work the 
bugs out that are due to inputting typo 
errors. I cannot, however, translate a 
program from one dialect to another 
such as Apple to TRS-80. Unfortunately, 
I also do not know of any books on this 
subject, and I am sure there must be 
many others like me that need this sort 
of help. 

I really have little desire to write or 
create programs. I do not have the 
time to devote to many weeks of 
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classroom training to learn to do this. I 
only want to use my computer in the 
many ways I enjoy using it and am able 
to find many useable programs in 
Computronics and other fine maga- 
zines. Now if I could learn to convert 
one dialect to another I would be 
extremely happy. 

I, for one who has been reading 
Computron/cs for a long time, strongly 
urge you to carry out your plans to 
write more about conversions and to 
cover other dialects. 

Eric Norton 

10104 Southridge Terrace 

Oklahoma City, OK 73159 

Mr. Kaplan has already begun covering 
the problems of conversion from other 
computers. He would be interested in 
hearing from readers with ideas about 
further conversion problems. 

Use of XFERSYS 

In your March 1982 article on 
understanding TRSDOS, you are in 
error when you say (p. 64) "XFERSYS is 
an undocumented and fairly useless 
program . . . ." 

For those of us who bought Model 
Ill's early in the game, XFERSYS is the 
program we use to convert a TRSDOS 
1.2 to TRSDOS 1.3. Not at all useless if 
you own a pile of 1.2 disks! 

Wynne Keller 
RD 1 Box 4130 
Solon, ME 04979 

Calculating the Horizon 

— -^ — 

I enjoyed the program in the March 
Issue for calculating the distance to 
the horizon. Before looking at your 
program, I figured it out myself and 
came up with the same equation. 

It is interesting to calculate the 
distances between two different heights; 
just calculate each distance to the 
horizon and add them together. 

Also, one can calculate the height 
needed very easily by doing a little 
approximating. Your basic equation: 



gives 



(R+A)2 = R^+H^ 

R'+2RA+A'=R'+H2 
A(2R+A)=H^ 



and since A will be small compared to 
2R it can be omitted, giving 

2RA=H^ 

2R being the earth's diameter or 
41,817,600 feet. Then: 

H = v/(AX2R) 

and A = H72R 

just nice for a calculator! 

I started to wonder about the ant. 
height required when there was an 
intervening hill, but decided I didn't 
need that much practice in trigonmetry! 

Ray Sommers 
1396 County I 
Custer, Wl 54423 



H & E Computronics welcomes letters 
on any subject. If you wish a personal 
reply, please enclose a self-addressed, 
stamped envelope. 

H & E Computronics also welcomes 
readers to submit programs, articles, 
or reviews for publication. Please 
address correspondence to: 

The Editor 

H & E Computronics 

50 North Pascack Road 

Spring Valley, NY 10977 
Please submit programs on media 
(cassettes or diskettes). Also please 
indicate the system it was prepared 
on, and include any necessary instruc- 
tions. ■ 



CORRECTION 

In the "Program Conversion (Part IV)" 
article in the May 1 982 issue, a portion 
of a program was inadvertently omitted. 
Near the end of the section entitled 
"Apple Sequential Files" the following 
program should have appeared: 

10 D$=CHR$(4) 

20 PRINT D$;"OPEN TEST" 

30 PRINT D$; "WRITE TEST" 

40 PRINT "COMPUTER": PRINT "COMPUTRONICS": 

PRINT "APPLE" 

50 PRINT D$; "CLOSE TEST" 

We regret any inconvenience caused 
by this omission. 
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Th* Aipwi SoMwart Comiwny Spelling CiMcktr. 
+ 

QRAMMATik 

Bsyond Sp*IMng Checking 



THE ONLY COMPLETE 
PROOFREADING PACKAGE 



FOR ALL CP/M, MS-DOS, 
AND TRS-80 WORD PROCESSORS 

We'll match Proofreader with any other 
spelling checker on the market. It has a big 
38.000 word expandable dictionary, and can 
check even your largest documents in under 
four minutes. Proofreader looks up every 
word, and does not use less accurate root 
word analysis like some others. Full inter- 
active correction is standard on CP/M and 
TRS-80 Model II systems, and is a low cost 
option for the TRS-80 Model I/III. 

Spelling checking alone is not enough! No 
one else has anything like Grammatik! It 
analyzes your document for common typos, 
punctuation errors, misused phrases, and 
poor writing style. Grammatik is receiving 
rave reviews from both critics and users. 
Bob Louden in InfoWorld (12/7/81): 
"Grammatik is a surprisingly fast and easy 
tool for analyzing writing style and punctu- 
ation. If you are currently doing original 
writing on a word processor, you should 
consider this product." Eric Balkan in 
The Computer Consultant: "I'm impressed 
with the imagination that went into this 
product." A user: "Thanks for making my 
life easier!" 



Grammatik and Proofreader are compatible with all 

CP/M, MS-DOS (including IBM PC), and TRS-80 word 

processors. 

Current CP/M formats: 

standard 8'. NorthStar, Omikron TRS-80. 
Please call or write for details of minimum system 
sizes, and availability of additional disk and operating 
system formats. Shipping costs included. 
Please specify your system configuration when 
ordering. Dealer inquiries invited. 
MS-DOS versions scheduled for March 1982 release. 



Proofreader Grammatik 
CP/M, MS-DOS J129.00 JI49.00 

TRS-80 Model II S99.00 S99.00 

TRS-80 Mod. I/Ill $54.00 $59.00 

(Model I/III interactive correction option - $30.00) 



Trademarks; CP/M: Digital Research; TRS-80: Tandy Corp.; 
Proofreader, Grammatik; Aspen Software Co. 



mc^amm'^' 



P,0. Box 339-H, Tijeras, NM 87059 
(505)281-1634 
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PROGRAM PREVIEWS 

A. A. Wicks 
This Month: GRAMMATIK 



Success breeds imitation, and imitation begets increased 
awareness by the successful. So it has been with speiling- 
checl< or proofreading programs; and you, the customer, 
directly benefit from this. Even now, several spelling-check 
programs are now being released in later versions, with many 
worthwhile advantages. 

One company. Aspen Software (at one time known as 
"Soft-Tools") , has gone a step beyond spelling checking — a 
direction that was inevitable in the intense and popular 
world of word processing. This Company has now released a 
program called GRAMMATIK, which not only analyzes 
writing style at both the word processing sentence level, but 
also looks for typographical errors (not misspelled words), 
such as doubled prepositions (the the), and misplaced 
capitals (Floppy). 

When I had read the first two pages of the GRAMMATIK 
manual (I always read the manual first, and recommend that 
everyone should do so), I was so enthused about the 
potential of this program that I could hardly wait to put it 
through an exercise. An overview of this program before 
getting down to our usual in-depth study of its features, will 
give you the highlights. 

We have not yet reached the stage in any computer 
program where the computer will put our thoughts into 
words. Nor do we have here a program that says, "This is 
incorrect, you should say so-and-so.% The question as to 
whether any particular phrase is better than another is 
absolutely subjective, and what you may like, I may not. But 
GRAMMATIK, in the "style% area, will pick out phrases that 
are generally recognized as being in poor usage, or 
execessively wordy or repetitive, and will provide statistics 
regarding your use of these words or phrases in your 
document. Additionally, the program looks for your use of 
sexist words. The program does not, however, recognize the 
meanings of words, or relationships of subject-verb meanings. 
Nevertheless, by pointing to questionable parlance, it may 
suggest the need for document revision. 

Two things should be done before commencing to use 
GRAMMATIK. (Three, if you count the reading of the manual 
as the first). The distribution disk should be backed up, and 
the instructions for doing this are explicit. I mention this 
because frequently this is not the case, and 1 do consider it 
important that such instructions leave no doubts in the user's 
mind about how this important function is performed. The 
next action is to insure that the document has either had a 
spelling check program applied to it, or you are assured that 
there are no spelling or typographical errors in the 
document. This is merely for accuracy, the only result of not 
doing so would be that your document would continue to 
have errors if they were already there, because GRAMMATIK 
will not detect these. 

The primary analysis program is GMK, and this reads in 
phrase dictionaries and checks the document. The phrase 
dictionary is under PHRASES/GMK. There are over 500 



phrases and words in the latter program, as well as error 
category information and suggestions for alternatives. (The 
Model I/ill 32k version has about 300 phrases). 

Calling GRAMMATIK (GMK) will load principal program 
for analyzing a document. Once this program is loaded, a 
menu is presented, offering a choice of actions. The first to 
be taken is to select "D" to read the "PHRASES" dictionary. 
Then we identify the source file, by typing "l=<file>" ("file" 
being the file name). The menu, which is listed alphabetically 
by single "Command" letter, "Meaning", and "Current 
Setting", may be configured as desired, or defaults accepted. 
For example the Command "P or NOP", meaning "Printer," 
or "No Printer" will default to NOP, but may be changed 
before beginning the check. There are many options of this 
type — "List Errors on File" (to disk file, with only the errors 
and summary going to the file); "Show Suggestions" will 
provide suggestions to be considered in lieu of the word or 
phrase targeted as erroneous; and, one option that is 
especially valuable is "E". This option allows a choice 
regarding the errors that will be displayed. Normally, all 
errors will be shown, but suppose you have no problem in 
discerning the correct usage of "effect" and "affect". 
Because many persons do have difficulty in this regard, 
GRAMMATIK flags either of these words when found, and 
classifies them as a "commonly misused word". The resulting 
display paragraph shows alternate words and gives a 
definition of the word detected. You therefore use the "E" 
command to avoid this display if it does not affect you. If you 
do have problems with such words, a few times with 
GRAMMATIK will provide subtle instruction — and perhaps 
you will soon be entering an "E" to turn them off. Additional 
commands will be described later in this review as their 
application becomes apparent. At the moment, we now 
enter "//" to start the checking process. 

Checking the PH RASES dictionary is reasonably rapid, but 
of course depends on the length of the document. A 3000- 
word article selected for test took about three minutes to 
check. Immediately following, the screen displays the text of 
the file line-after-line, as read from the disk, pausing as errors 
are found, and displaying the error. GRAMMATIK analyzes 
on the word, phrase and sentence level. A word is 
considered as a sequence of letters a to z, in. either upper or 
lower case, which are separated from other words and 
symbols by characters that are not letters (space, period, 
etc.). Numbers and certain abbreviations are recognized as 
units, but all other symbols are considered as individual 
characters. (Some typical abbreviations are: cu. ft. lbs. gal. 
Capt. Lt. Mr. Ms. Mrs., plus 16 others including all of the 
Months). Any sequence of words or characters in the phrase 
dictionary are recognized as such. Periods, questions marks 
and exclamation marks are recognized as end-of-sentence 
marks. However, periods used in quantity, such as for 
ellipsis, are not recognized as end of sentence. Quotation 

continued on page 14 
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on Software and Hardware for 

TRS-80 



CHEXTEXT 

Let your TRS-80* do the proofreading on 
your SCRIPSIT text files!! 

Features of this program include: 

• Connplete dictionary maintenance in- 
cluding the addition and deletion of 
words. 

• Menu driven for ease of operation. 

• Spelling Checker 

• FREE expanded dictionaries avail- 
able, depending on your drive 
storage capabilities. 

NEW LOWER PRICE $59.95 



MODEL III PRICE LIST 

(All 48K w/ith TANDON drives) 

1 single sided 40 track drive $1 695.00 

2 single sided 40 track drives 1 895.00 

1 dual sided 40 track drive 1 820.00 

2 dual sided 40 track drives 21 45.00 

2 single sided 80 track drives 21 75.00 

2 dual sided 80 track drives 2395.00 

with RS-232 C Add 1 1 5.00 

The above computers Include NEWDOS 
80 Version 2.0. 

NOTE; These Model Ml computers contain Apparat 
installed disk drives and memory. They are warranted 
by Apparat, Inc. for 90 days. 




MISCELLANEOUS SUPPLIES 

DISKETTES 

Double density-soft sectored-replacement guaranteed. Spindle/Hub 
protected. {5Vt" only) 

Verbatim Datalife S'A" 40 track $24.95 

Apparat's No Name SV." 40 track $'*9.95 

Verbatim Datalife 8" model II $39.95 

PAPER 
^Wx^ 1 " blank white, tractor feed paper, full box 1 5# or 20# . . . $24.95 

14'/2"x1l" green bar, tractor feed paper, full box $34.95 

3y2"x1 5/1 6" tractor feed mailing labels $1 9.95 

OTHER 

5V»" plastic library case $ i .95 

8" plastic library case $ 4.95 

5"." Flip-sort $18.95 

8" Flip-sort $31.95 

1 6K memory kits $1 9.95 



SPECIAL - FREE GRAFTRAX 

with EPSON MX-80 Printers 
MX-80 $499.00 

MX-80F/T $575.00 

with Graftrax, add $79.95 

MX-100 $775.00 
Printer Cables $24.00 

(Specify Computer Type) 

WE ALSO STOCK OKIDATA a NEC PRINTERS 
CALL FOR PRICES 



NEW LOWER PRICES ON 
TANDON DISK DRIVES 

Complete with power supply, chassis & configured for 
TRS-80' l^odel I or III 

• Single sided 40 track $285.00 

• Dual 40 or Single 80 track $415.00 

• Dual sided 80 track $515.00 

• Special - 2 Dual sided 80's $999.00 

(ADDSALMOST 1.5 MEGABYTES OF STORAl'iT 
TO A D. D. MOD I OR A MOD III) 

MODEL I DOUBLE 
DENSITY PACKAGE 

Converts a standard TRS-80 Model I 
I to Double Density. 
Apparat Doubter & NEWDOS/80V 2.0. 
$278.00 value for only $219.00 
Doubler alone $1 29.00 




APPARAT'S PROM BLASTER 

An eprom programmer for all 25 X X and 27 X X chips. TRS-80' 

MOD I & III $149.00 

CABLE $ 1 7.95 

BUS EXTENDER 

mini version with 2 card Slots and no enclosure $ 69.95 




ASSORTED ITEMS OF INTEREST 



MICRO CLINIC, Mod I $24.95, Mod III $29.95 

The ultimate in memory & disk diagnostics 
MEAL MASTER. Mod I & Ml Disk $24.95 

meal planning S grocery shopping aid 
FLEXTEXT/80 (requires Graftrax) $34.95 
ultilize the additional features of the MX-80 

printers under model I & III scripsit 

MICRO ACCOUNTING SYSTEM, $479.00 

Interactive G/L, A/R. A/P & checkbook manager 

UNI-TERM/80, $89.00 

Universal terminal program that takes advantage 

of the extended NEWDOS/80 commands 

BASIC BETTER A FASTER BOOK, $23.95 



PI^WI^^^Q^ Version 2.0 



The most sophisticated DOS ever pro- 
duced for the TRS-SO" Models I and III. It 
provides the user with "MAINFRAME" 
power on a "MICRO". 

Some Features available are; 

• Jobstream Control Language 

• Mod I/Mod III Diskette interchangability 

• Double Density Support on Model I 

• Pagenation of BASIC listings on the screen 

• Basic program single stepping 

• Dynamic variable manipulation 

• Multiple array sorts with BASIC CMD 

• Complete technical support provided 

All this plus much more for only 
$149.00 
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DOS FEATURES 

• A 252+ page technical manual with index and detailed table of contents. 

• Commands SYSTEM and PDRIVE allow the user to configure/customize 
his/her own DOS 

• Depending on installed hardware, NEWDOS/80, via the PDRIVE com- 
mand, supports within one system, mixtures of single/double density, 
single/double head, 5 or 8 inch drives with single/double volume 
diskettes of up to 7680 standard 256 byte sectors. 80 track drives can 
read 35/40 track diskettes. Parameters for 10 drives may be pre- 
specified though only a maximum of 4 are in use at anytime. ADR not 
provided. 

• LNW 5/8 and Omikron mapper boards supported. 

• APPARAT,AEROCOMP,AM,LNW.andPERCOM. disk doublers supported. 

• Most CPU speed up mods may be used though not specifically supported. 

• Model I/Ill data diskette interchangeability when both computers are 
operating under NEWDOS/80 version 2.0. 

• Model I 2.3 TRSDOS compatible. 

• COPY to/from Model I 2.3B and Model III TRSDOS diskettes (no other 
useage allowed). 

• Single drive COPY and Copy By File features. 

• Depending on installed *-.ardware, the system volume may be single/ 
double density, single/double sided, 5 or 8 inch and up to 7680 sectors. 

• RUN-ONLY program mode restricts the operator to program defined 
input only. 

• MINI-DOS allows the executing program to be interrupted by the 
operator to perform one or more of the 51 DOS commands executable 
under MINI-DOS, and then continue the interrupted program's execution. 

• CHAIN or DO commands activate chaining whereby keyboard input 
comes from the specified disk file, allowing a pre-determined set of 
commands and/or parameters to be automatically inputted. 

• Dump display to printer function. 

• Enhanced DEBUG facility (14 commands) allows interrupting current 
program execution, inspecting/altering memory or disk, and resuming 
execution, continuous or single step, with/without stops. 
DOS vectors defined for Assembly Language programmers. 
DOS-CALL allows user programs and BASIC to execute DOS commands. 
The programmer may create his own resident DOS commands. 
Programs may enable/disable user routines driven off the timer interrupt. 
The programmer may create his/her own resident DOS commands. 
Model I built-in lower case driver, blinking cursor, auto key repeat 
ROUTEing of keyboard, display, printer and (Model III only) RS232C. 
May be routed to a user routine in memory, but not to/from disk unless via 
a user routine. 

Except for the spooler, there are no high memory routines for DOS or 
BASIC; this includes ROUTE and CHAIN functions. 
Lower case DOS commands honored. 
Full error messages displayed instead of error codes. 
31 enhanced COPY parameters. 
Copy By File allows 6 criteria for file selection. 
15 enhanced FORMAT parameters. 
Partial diskette reFORMAT permitted. 
File PURGE by wildcard extents and/or user files. 
Dl Rectory command allows wildcard extents, user files, short or extended 
format, dump to printer 

• User may specify diskette's directory location. 

• Expanded directory provides for up to 222 file entries. 



• Some DOS commands may be aborted without reset. 

• R command repeats last performed DOS command. 

• CREATE command to pre-allocate a disk file. 

• ERROR command displays error message associated with error code. 

• HIMEM command sets/displays DOS/BASIC high memory address. 

• DATE command sets/displays computer's date. 

• TIME command sets/displays computer's time. 

• Model III FORMS command for printer control. 

• Model III SETCOM command for RS232 control. 

• Enhanced LIST/PRINT commandsfor ASCII files with pause, abort and 
partial file listing. 

• Alter chaining state via the GHNON command or commands_yyithin the 
chain file. 

• A program or a chaining sequence may display a message with/without 
pause. 

• CLEAR command to zero memory, and to purge routes, user DOS 
commands and user timer routines. 

• Commands to enable/disable BREAK key, blinking cursor, lower case 
driver 

• PROT command to change diskette NAME/DATE/PASSWORD 

• ATTRIB command to change a file's attributes. 

• CLS command to clear screen. 

• AUTO specifies the command to execute automatically at reset/power-on. 

• SYSTEM specifies the default system configuration values (usually 
enable or disable) which become effective on RESET/POWER UP. 

Diskette/file password checking 

RUN-ONLY mode 

Keyboard debounce (Model I) 

Screen dump to printer (JKL) 

DEBUG 123 entry 

MINI-DOS 

Break key as keyboard key 

Hardware lower case (Model I) 

Assign default drive number for DIR 

Assign .default drive number for file creation 

Memory protect value 

Clear key as keyboard key 

Disk master password required for full diskette or CBF COPY 

Auto Repeat key function 

TIME/DATE question on poVi(er-up 

TIME/DATE question on reset 

Display disabled until operator/program reenables 

Manual operator chaining pause/abort 

Manual operator AUTO command override 

R = repeat last DOS command performed 

Built-in lower case driver (Model I) 

Lower to upper case toggle 

Blinking cursor 

Number of physical drives on computer 

Number of disk I/O retries 

Time delay for 1 st repeat of auto repeat key 

Specify the cursor character 

Specify the write of the directory sector's address mark for Model i 

single density diskette in Model III format for easy Model I, Model III 

diskette exchangeability 
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800/525-7674 (order line only) 

303/741-1778 

4401 South Tamarac Parkway 
Denver, Colorado 80237 



Why NSWDOS/oC™ VE R. 2 . 
Is the Best 




!!• 



OS for your TRS-80 
Model I or III Computer 



In addition to TRSDOS sequential and random file types, NEWDOS/80 

has two new file types (Marked Item and Fixed Item) divided into five 

subtypes (MF, MU, Ml, FF and Fl) 

These five subtypes do not require LSET, RSET, MKI$, MKS$, MKD$, 

CVI, CVS orCVD; instead.GETs and PUTs are done directly to/from the 

variables named in a list. 

The string separating character sequence ; " , " ; used with PRI NT is not 

used with the new file types; instead only a comma is used as the 

separator. 



DISK BASIC FEATURES 

• In one statement from DOS READY, BASIC can be brought up, the 
number of files set, the memory size set and a program LOADed or RUN. 

• RUN-ONLY prevents the operator from getting to READY or DOS 
READY, thus giving the program almost total control. 

• Via the CMD function, all DOS commands are executable from 
BASIC, either directly or dynamically. 

• MINI-DOS is available from BASIC. 

• DEBUG is available from BASIC. 

• CHAINIng is available from BASIC. 

• Variable passing between programs via the V parameter of RUN. 

• Abbreviated commands: 

(A)uto; (D)elete; (E)dit or comma; (L)ist or period 

• Accidental text line deletion more difficult 

• Text line scrolling foreward or backward. 

• Text page scrolling foreward or backward. 

• Di moves text line to new position 

• DU duplicates text line to new position 

• Built-in RENUMber with line number and limited syntax error check. 
A portion of text may be moved to another part of theT>rogram with all 
references to that code resolved. 

• Built-in REFerence function will display/print references to all line 
numbers, integers and variables. It will display references to asingle line 
number, integer, string, function code (reserved word) or a group of 
packed or unpacked characters, and then allows displaying of each 
referencing text line in turn with editing as necessary. 

• A program maybe loaded into reserved high memory via CIVID or MINI- 
DOS and its execution address extracted from the two bytes at 1741 1 
(4403H). 

• MERGE functions with packed or ASCII text files. 

• Built-in text space eliminator and/or remark deleter. 

• Built-in calendar date conversion. 

• Dynamic ERASE of selected variables, keeping all others. 

• Dynamic KEEP selected variables, CLEARIng all others. 

• After clearing an array via ERASE or KEEP, the array may be redimensioned 
via DIM. 

• Dynamic text line deletion. 

• Dynamic text line insertion via MERGE, which with dynamic DELETE, 
allows use of overlays. 

• SWAP contents of 2 variables of the same type. 

• Single Stepping starting at specified text line number. 

• In-memory sort of up to 9 arrays in either ascending or descending order 

• RENEW function to reinstate NEWed program. 

• Full BASIC error messages, including associate DOS error message, if 
applicable 

• With default start up parameters and no reserved high memory, 48K 
RAM has 38261 bytes available. 

• SUPERZAP, DIRCHECK and other programs using only memory from 
5200H to 6FFFH can be executed directly from BASIC without disturb- 
ing the program text or variables (if 8K BASIC free memory available, 
exclusive of string area). 

FEATURES of NEWDOS/80 enchanced BASIC disk file I/O. 



MU files are used as an option to the older PRINT/INPUT files. 
FF files are used as an option to the older RANDOM files. 
Record lengths up to 4095 bytes supported. 

Records may be all of the same length (MF and FF), of varying lengths 
(MU) or unknown length (Ml and Fl). 
Sequential files may be accessed randomly. 

Files may be accessed by Relative Byte Address to allQw accessing of 
variable length or unkown length records. 
• Existing files may be extended. 

UTILITY PROGRAMS INCLUDED WITH NEWDOS/80 

• SUPERZAP is a disk/memory display and modification program, also 
used as the vehicle for installing patches to NEWDOS/80. 

• DISASSEM isaZ80load module (CMD) disassembler that builds cross 
reference tables for all location references including those by JR 
instructions, includes in the disassembly printable characters for all hex 
bytes to help locate character strings and sends the disassembly to the 
display, printer or a disk file. The disk file can then be edited and/or- 
assembled using EDTASM, if it is not too large. 

• DIRCHECK is a program that displays directory contents and checks 
directory integrity (its primary function), displaying specific error codes 
to assist user attempts at directory trouble shooting and/or repair. 
Optionally will zero out unused (dead) file names. 

• EDTASM is Apparat's enchancement of Radio Shack's 1978 tape 
editor/assembler program to operate from disk and with disk files. 
Requires purchase of that Radio Shack program (not a newer one) as a 
pre-condition of use of Apparat's EDTASM. 



• LMOFFSET allows load module (CMD) transfer between disk and tape. 
Displays program start, end and entry addresses. Optionally allows load 
address relocation (not execution relocation) and subsequent execution 
as from non-disk BASIC via SYSTEM. 

• CHAINBLD is a mini-text editor for creating/maintaining chaining files. 

• NEWDOS/80 manual chapter titles and page counts 

1. Introduction (5) 

2. DOS Library Commands (52) 

3. DOS Rojlines(12) 

4. DOS Features (14) 

5. DOS Modules, Data Structures, and Miscellaneous 
Information (12) 

6. Additional Programs Supplied on NEWDOS/80 Diskette (22) 

7. ■ Disk BASIC, non-1/0 Enhancements (17) 

8. Disk BASIC I/O Enhancements and Differences (21) 

9. Error Codes and Messages (2) 

10. Glossary (9) 

11. Error Reporting, Incompatibility Handling, and Patching (8) 

12. Conversion Information and Miscellaneous Comments (9) 

13. ZAPS (increasing with time) 

14. Appendix A: Marked and Fixed Item File discussion (47) 

15. Appendix B: Marked and Fixed Item File examples (18) 

16. Index (4) 

• Full time support staff 

• Information, minor enhancements and corrections to NEWDOS/80 are 
issued, at no charge, to registered owners only. 



NEWDOS/80 Version 2.0 for the model I is a separate and distinct 
product from the model III. Each is sold separately. 



$149.00 



"On-going Support for Microcomputers" 
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continued from page 10 

marks and parentheses (also brackets and braces), are 
recognized and are counted to make sure they balance. All 
words, and the comma and semi-colon, are checked for 
erroneous doubling (e.g. at at). When the end of a sentence 
is detected, the next word is checked to insure that they are 
either all upper or lower case, or that only the first letter of a 
word is capitalized (which assumes a proper name. Finally, 
the single letter"!" is checked for capitalization. Clearly, this 
is an impressive base for document analysis. We have 
digressed to discuss what this can do for you — let us now 
continue with the program process. 

When the screen pauses at an error, the following display 
is provided, with the text suspended in mid-sentence above 
it: 



> a number of 

* At sentence 23 - 'W' - wordy phrase 

* Suggestion: several, many, some 

The first line is from the text immediately preceding, and 
extracts the phrase that is considered erroneous or question- 
able. The sentence number is counted from the beginning of 
the document, as a reference. There are eighteen Error 
Codes (in this case "W"), and all are identified in an 
Appendix in the manual. There are too many to describe in 
detail here, but some of the more interesting and useful that 
are used as flags are: R-Redundant, such as "seldom ever" or 
"join together." S-Spelling. "Can not" would not be detected 
by a spelling check program, but will be identified by 
GRAMMATIK, although it is not a spelling checker, per se, T- 
Trademark. Trademarks, such as "Xerox" will be detected if 
not capitalized — a most useful flag. (When a trade-marked 
word is detected, a suggestion is also given to allow 
avoidance of the word if desired — in this example, the word 
"photocopy" is recommended). P-Punctuation, for example, 
missing spaces after a punctuation mark, and end of 
sentence punctuation outside of quotation marks. 

There are other data bases available within the program, 
all useful to a word-oriented activity. There is SEXIST, which 
is a dictionary of about 100 words that are gender specific. 
By calling on this dictionary file to scan a document, sexist 
words will be displayed in the way that words and phrases 
were. Some documentation will need sexist words as an 
essential part of the text. Here, SEXIST would never be 
called; however, a technical text would avoid these 
references, and will need to be culled by SEXIST alerting the 
user to their existence in the document. This base may be 
used alone, with PHRASES, or with a user-supplied dictionary. 

The last statement indicates that dictionaries may be 
created by the user. Entering words or phrases into your own 
dictionary is easy, but takes a while to format. You may use 
your word processor for this, and the result is in the same 
format when displayed, as with PHRASES. Also, an optional 
chained sequence of actions may be formatted, allowing ail 
functions that one requires to be loaded and performed. This 
occurs after you have entered the name of your document 
file. 

Still another practical program within GRAMMATIK is 
PROFILE. This does exactly as its name suggests — it 



provides a profile report of all yl^ords used in the document. 
As before, the length of time to process a document 
depends on its length, but the results are impressive — 
especially when printed. Starting with all words used once, 
these words are listed alphabetically in six columns, with the 
initial heading showing the "Total Number of Different 
Words." Then, as each list is completed, the words used 
twice, thrice and on top completion. Obviously, it would be 
unusual for every quantity in sequence to have a word or 
words in the group — one sample showed "this" as being 
used 46 times; the next grouping was for "is" being used 54 
times. 

SORTDICT allows soriting of dictionaries for maintainance 
and ease of reading. It may be used to sort any file that has 
data items on seperate lines, so these too, may be words or 
phrases. 

The program includes a sample line editor called MINIED. 
The manual suggests using your normal word processor 
capability; but for quick, minor changes MINIED will often 
be adequate. It is self-documenting, and has commands for 
new text insertion, insertion of new phrases at the end of an 
existing file from the keyboard, appending of files, and the 
usual delete, replace, and insert commands. As the function 
is run, a "Help" command provides guidance regarding each 
function. 

When a document has been analyzed, a Summary Report 
iis provided for output to screen or printer. The summary is 
excellent — detailed and informative. Anyone working with 
words will relish its explicit content. The first item is the total 
errors detected. Then, the number of sentences and words 
contained in the document; average sentence length 
(characters); number of questions and imperatives. The 
shortest and longest sentence lengths follow, with the line 
number of the sentence involved indicated. 

As the manual suggests, the preceding information in the 
summary will not indicate whether the text is coherent and 
well organized, ". . . documents with many long sentences 
and polysyllabic words tend to have stylistic difficulties ..." 
A technical document should have short but informative 
sentences for ease of understanding of the text. The 
summary Report with its analysis points the way to 
improvements you may make. 

There is more to the Summary, as it also provides the 
quantity of the "to be's" and prepositions used. A high ration 
of these compaered to the number of sentences may 
indicated overusage of these word classes, which would also 
suggest that some revisions may be needed. The "to be's" 
that are flagged are: am are be been being is was were. 

The final line of the Summary is "User Catagory Totals." 
You may define up to seven different catagories, consisting 
of single words or phrases to be counted, or a group of words 
or phrases. Actually, you may define only five, as "to be" and 
prepositions are automatically placed in categories 1 and 2. 
The categories you might wish to include could be the 
number of times you used "however," or"that" and "which." 
If you find that by habit you use some word excessively, 
then you may soon cure yourself by having the word defined 
into its own category, and subsequently brought up to stare 
you in the face. (Some authors might like to include 

continued on page 30 
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Announcing 

AUTOGRAMMER. 

Now you can write the programs your business needs- 
even if you tiave no programming experience! 



Until now, you either iiad to 
iiire an expensive programmer 
to custom tailor existing soft- 
ware to your business, or else 
try to adapt your business to 
someone else's software. The 
classic dilemma of the square 
peg in the round hole. 

But now there's 
Autogrammer. Software de- 
signed to let non-programmers 
generate their own programs. 
No need for programming 
knowledge. No need to m 

learn any programming ^ 

language. All you have 
to know are the needs 
of your own business. 



EASY! 

Autogrammer is as easy to 
use as a typewriter, yet so pow- 
erful it puts all the muscle of 
your computer right at your 
fingertips. Many applications 
require only 10 or 15 minutes to 
complete. What you type on the 
screen, Autogrammer turns 
into a machine-language pro- 
gram that's ready to run. 

VERSATILE! 

Autogrammer has thousands 
of applications for both busi- 
ness and personal needs. 
Inventory records, sales and 
earnings projections, tax calcu- 
lations, forecasts, employees 
files, stock market analyses. 
Using Autogrammer, you can 
create even complex programs 




such as tracking inventories, 
adding purchases, subtracting 
sales, crediting accounts, 
report and adjust for daily 
sales, add back to inventory, 
make adjustments for credits, 
defects, shipping charges, and 
much more. Having this kind of 
vital information available can 
simplify business decisions and 
save you money. 

FLEXIBLE! 

As your needs change, 
Autogrammer-generated appli- 
cations can easily be revised, 
updated, expanded, or com- 
bined. Autogrammer writes fin- 
ished, stand-alone programs 
which do not require Auto- 
grammer for running. They 
work first time, every time. 
Everybody in your organization 



Roklan 



can use Autogrammer to gen- 
erate custom programs. It's so 
simple, anyone can become an 
Autogrammer quickly and 
easily. 

Autogrammer allows you to 
print from screen with one sim- 
ple command or list the entire 
data base. The optional Report 
Generator allows you to organ- 
ize and then report from the 
data base in the format you 
choose. 
^^ Autogrammer by Roklan 
^ costs $299.95 and is 
available for Tandy 
TRS-80* model Hand 
soon for models I, III 
and CP/M versions, with other 
versions soon to come. 
Optional Report Generator, 
$199.00, for in-depth reporting 
from the data base. 

LET'S FACE IT. 

Nobody knows your busi- 
ness like you do. With 
Autogrammer, you can write 
your own programs and gain 
control of your own business 
by generating exactly the 
information you need. 

Autogrammer for TRS-80* 
model 11 isavailablefrom H&E 
Computronics Inc. and other 
major distributors and dealers 
nationally. 

The end of the square peg in 
the round hole. 

"Registered trademark of Tandy Corp. 
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Hubert S. Howe, Jr. 

This Month: RS-232-C Communications 



COMMUNICATIONS 

Many years ago, the Electronics Industries Association (EIA) 
developed a standard called "RS-232-C" for interfacing data 
terminal and data communications equipment. Since that 
time, billions of dollars worth of computer equipment has 
been constructed incorporating this standard, which has 
become by far the most universally used method for 
interfacing data processing equipment. Most video terminals, 
line printers, modems, minicomputers, microcomputers and 
other equipment now use this standard for communication 
between one device and another. 

The RS-232-C interface, which is a separate board 
installed in the TRS-80 Models 1 or 3, is also referred to as a 
"Universal Asynchronous Receiver-Transmitter" or"UART". 
Its method for data transfer is a serial process, which means 
that data are sent one bit at a time, preceded by a start 
element and followed by a stop element. The UART 
assembles or disassembles the parallel data into serial bits 
for transmission or reception. The fact that a serial process is 
used means that only two wires (plus ground) are necessary 
for the connection of the devices, although the use of a 25- 
pin cable and plug has become standard, as explained 
below. Most transmission is asynchronous, which means that 
a synchronizing clock does not have to be sent with the data, 
and gaps of different lengths may exist between the 
characters. The start element is a single logic zero data bit 
added to the front of each character, and the stop element is 
a logic one added to the end. There is no upper limit to the 
length of the stop element, but the lower limit depends on 
system characteristics. The TRS-80 allows 1.0 or 2.0 data bit 
intervals for the stop bit. 

The data characters that are transmitted are not always 
bytes, as you might imagine from everything else on the TRS- 
80. They may be from five to eight bits in length, and the 
most widely used standard is for seven-bit ASCII characters. 

Most serial communication equipment is connected using 
25-pin DB-25 connectors, even though only a few of these 
pins are actually used for most applications. The functions of 
these pins are summarized in table 1. Much communication 
equipment will work with only pins 2, 3, and 7 connected. In 
order to test the RS-232-C interface, it is possible to short 
pins 2 and 3 together in order to echo the data transmitted 
back to look like data received. 

Although many different devices may communicate using 
the RS-232-C interface, on the TRS-80 there are really only 
two important applications for it: communication between 
two different computers, with or without the transmission 
going through a modem, and the use of a serial printer 
(instead of the standard printer interface, which is for a 
parallel printer). Both of these applications require different 
kinds of software, and they will be discussed separately later 
in this column. 



Pin Number 


Abbreviation 


Description 


1 


PGND 


Protective (chassis) ground 


2 


TD 


Transmit Data 


3 


RD 


Receive Data 


4 


RTS 


Request-to-Send 


5 


CTS 


Clear-to-Send 


6 


DSR 


Data Set Ready 


7 


SGND 


Signal Ground 


8 


CD 


Carrier Detect 


2)8 


DTR 


Data Terminal Ready 


22 


RI 


Ring Indicator 



Table 1: RS-232-C Pin Designations and Signal Functions 

RS-232-C CHARACTERISTICS 

When two pieces of data processing equipment are 
interfaced for purposes of communication, there are several 
options that may be specified in order to make the 
communication successful. These include at least the baud 
rate, parity, word length, and stop bits, and several 
additional options described in the TRS-80 Model III 
Operation and Basic Language Reference Manual. (These are 
not as important as the others, and are not important for all 
systems.) 

The most important characteristic of RS-232-C data 
communications is the baud rate, "baud" is usually 
explained as "bits per second"; therefore the "rate" is really 
redundant, and a more appropriate term would be "data 
rate". (Nevertheless, this term has become so widely used in 
computer technology that we cannot object to its use.) Baud 
rate is actually defined as the inverse of the time duration of 
the shortest signal element, which is normally one data bit 
interval. The baud rate is equal to the bit rate if one stop bit is 
used. 

The most widely used baud rates are 110, 300, and 1200, 
although many other values are possible (higher values are 
usually double the previous value, up to 19.2K baud). The 
TRS-80 Models 1 and 3 allow 16 different baud rates, which 
are shown below in the discussion of RS-232-C ports and 
their functions. When two devices are connected by means 
of a cable, transmission can occur at high rates such as 9600 
or 19.2K baud. Transmission over a telephone modem is 
usually limited to rates less than 2K baud. 

The other important RS-232-C characteristics are the 
number of stop bits, word length, and parity. All these can be 
software selected on the TRS-80 Models 1 and 3. Only one 
or two stop bits may be used. Word length values of 5, 6, 7, 
or 8 bits may be selected. The most common value is 7 bits 
for ASCII data. Parity provides a simple method for verifying 
the transmission of data. A parity bit is determined by the 
sum of the bits in the data. An even number of "1" bits 
would produce a zero, and an odd number would produce a 
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"I believe Super Utility or Super 
Utility Plus should be present 
at every serious TRS-80 disk 
installation/' 



(We didn't say this; Paul Wiener did in 80 Micro- 
computing, Jan. '81. . .but we sure agree with him!) 



Get Yourself o "Super" Utility from 
the most powerful software vendor. 



NOW AT SPECIAL PRICES: 




Super Utility* 

• Mod I, single density only 

• 24K nnocnJne language 

• Zap 

• Purge 

• Format 

• Speciol format 

• Format without erase 

• Disk copy 

• Special disk copy 

• Tape copy 

• Disk repair 

• Memory utility 

• Protected disk 

• MORE 

• $29.95 

(Reduced from S49.95) 

•While they last! 



Quidf Rx* 

• Mod I, single density onjy 

• Zap 

• Purge 

• Format 

• Format without erase 

• Copy 

• Disk repoir 

• Recover killed files 

• Memor/ utility 

• TRS DOS, New DOS + (2.1) only 

• MORE 

• $19.95 

(Reduced from S34.95) 

•While they last! 



Dealers! Place your orders now at this 
special price! 

SPECIAL PRICES GOOD FOR LIMITED TIME ONLY... HURRY! 



SuperUtility Plus 

You heard about it! You read about 
it (60 Microcomputing). Now get the 
"codilloc" at o special price! 
Compatible with McxI \, and Mod III. 
and oil the current operating systems! 
Copy files from any DOS to any DOS, 
Mod I or III, without converting! 

• Zap 

• Purge 

• Format 

• Special Format 

• Formor without erase 

• Disk copy 

• Special disk copy 

• Tope copy 

• Disk repoir 

• Memory 

• File Utility Configurable System 

• MUCH MORE 

• Mod I Mod III on Some Disk 

• $49.95 

(Reduced from $124.95) 




11500STEMMONS EXPRESSWAY. SUITE 125 
DALLAS. TEXAS 75229 
PHONE (214)484-2976 
MICRONET 701 30.203 



DEALER INQUIRIES INVITED 



POWERSOFT IS A DIVISION OF BREEZE/QSD, INC. 



Snfi;;ping :<, ,.iciL.ciecl in sa'es to Canada & U S 

FOREIGN ORDERS ADD $10 



one. This would be the case if even parity is used; odd parity 
is the reverse. Parity can also be optionally disabled. In any 
event, the software must check the parity bit in the UART 
status register in order to determine whether an error has 
occurred. 

The TRS-80 Model 3 also adds some other characteristics 
to its RS-232-C interface. Like the parity disable option, data 
transmission may also be disabled. The Data Terminal Ready 
and Request to Send signals may be set either high or low. In 
addition, there is a "wait/don't wait" switch. In the "wait" 
position, this switch requires that the communicating device 
respond to the transmission before another data value is 
sent. In the "don't wait" position, transmission may continue 
regardless of the acknowledgement. 

Radio Shack's TRS-80 Model III Operation and Basic 
Language Reference Manual describes all of these characteris- 
tics in relation to the ROM software routines, and does not 
distinguish which aspects are part of the hardware and which 
are controlled by the software. The wait/don't wait switch is 
a function of the software. Other characteristics are part of 
the hardware, and may be used by programs if needed. 

RS-232-C PORTS AND THEIR FUNCTIONS 

There are four input/output ports that determine the 
functions of the RS-232-C interface, and fortunately they are 
identical for both the Models 1 and 3. The ports used are 
numbers 232 through 235 (E8 through EB hexadecimal). The 
functions of the ports are different depending on whether 
they are used for input or output. Descriptions of these 
functions are shown in Table 2. 



Port 



IN/OUT 



232 ()3E8H) 


IN 




OUT 


233 (J3E9H) 


IN 




OUT 


234 (0EAH) 


IN 




OUT 


235 mm 


IN/OUT 



Function 

Modem Status Register 
Master Reset 

Configuration Sense Switches 
Baud Rate Select 
UART Status Register 
UART Control Register 
Data Register 



notice carefully that various bits are "backwards" in the RS- 
232-C registers. To select the word length, is used for 5 
bits, 1 for 6 bits, 2 for 7 bits, and 3 for 8 bits. These values 0-3 
are represented as 00, 01 , 10, and 1 1 in binary form and can 
therefore be specified in two bits. The problem is that word 
length select bit 2 goes to bit 5 rather than bit 6, so that in 



IN/OUT 


Bit 


Function 


INPUT 




MODEM STATUS REGISTER 







Unused 




1 


Receiver Input (UART Pin 20) 




2 


Unused 




3 


Unused 




4 


Ring Indicator (Pin 22) 




5 


Carrier Detect (Pin 8) 




6 


Data Set Ready (Pin 6) 




7 


Clear to Send (Pii 5) 


OUTPUT 




MASTER RESET 




18-7 


Any byte resets controller 



Table 3: Functions of port 232 (0E8H) 



IN/OUT 


Bit 


Function 


INPUT 




SENSE SWITCHES 







Baud Rate 2 




1 


Baud Rate 1 




2 


Baud Rate 3 




3 


Parity: 0=enabled, l=disabled 




4 


Stop Bits: 0=1, 1=2 bits 




5 


Word Length 2 




6 


Word Length 1 


OUTPUT 


7 


Parity: l=even, 0=odd 
BAUD RATE SELECT 




0-3 


Receive Baud Rate Select 




4-7 


Transmit Baud Rate Select 



Table 4: Functions of Port 233 (E9H) 



Table 2: Functions of the RS-232-C Input/Output Ports. 

The functions of the individual bits of the ports 232-234 
are shown in tables 3,4, and 5. Reading a byte from port 232 
produces the values indicated. Writing any byte to this port 
resets the controller. The RS-232-C interface is configured by 
outputting bytes to ports 233 and 234. Inputting a byte from 
233 gives the current configuration, whereas inputting a byte 
from 234 shows whether the UART is ready to transmit or 
receive data or whether various errors have occurred. Port 
235 is strictly for reading or writing data, which can be done 
only when the status register indicates that the UART is 
ready. 

In order to configure the RS-232-C interface, it is 
necessary to decide the characteristics desiried and to 
assemble a byte with these characteristics in the bits 
indicated, and then to output the byte to ports 233 or 234. 
Both the word length select and the baud rate select must be 
given in more than one bit, and in this case it is necessary to 



IN/OUT 


Bit 


Function 


INPUT 




UART STATUS REGISTER 




0-2 


Unused 




3 


Parity Error: l=true 




4 


Framing Error: l=true 




5 


Overrun Error: l=true 




6 


Data Transmitted: l=true 




7 


Data Received: l=true 


OUTPUT 




UART CONTROL REGISTER 







Data Terminal Ready (Pin 20) 




1 


Request to Send (Pin 4) 




2 


Break: disables transmit data 




3 


Parity Inhibit: l=disable, 0=enable 




4 


Stop Bit Select: 0=1, 1=2 bits 




5 


Word Length Select 2 




6 


Word Length Select 1 




7 


Parity Select: 0=odd, l=evCen 



Table 5: Functions of port 234 (EAH) 
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LYNN'S A/R SYSTEM 



12 Intergraded Account Receivable Programs 
Tested In Service For Over 3 Years 



■\ 



User's Comments: • menu driven* increased cash flow* saved over 50 hours a month in secretarial hours* almost completely 
eliminated billing errors • phone supported-ask for Ron. 



LYNN'S A/R 

• print invoices 

• tell you your a/r total, number of invoices outstanding, 
average per invoice 

• tell you at any time how many invoices an individual 
account has open, the total amount owed, the average per 
invoice, the invoice date, and then invoice amount 

• total sales on account for a given month, number of invoices 
sent, average sale per invoice 

• how much an account purchased during month, how many 
invoices were sent, average invoice for month 



SYSTEM WILL 

• tell you what percent of sales an account is to total sales 
by month 

• tell you what percent of a/r an account is 

• print mailing labels for your accounts 

• print statements at any time you want them (either individual 
or all accounts) 

• print alphabetical hardcopy of accounts and account numbers 

• print all items sold for month 

• alphabetical sort of items sold by month 

• this set of programs can be custom modified by you or us 

• AND MUCH MORE!! 



Paging report for lynn's a/r system^ 

Aging Report 01 /31 /82 Page 1 

Account Current 3Q-60 Days 60-90 Days 90+ Days Total 

ABC Inc. $249.00 $65.20 $00.00 $00.00 $314.20 

Old Co. Inc. 00.00 84,40 165.20 00.00 '249.60 

New Co. Inc. 97.75 00.00 00.00 00.00 97.75 

Deadbeat Inc. 00.00 00.00 00.00 345.00 345.00 



Totals $346.75 $149.60 165.20 

Aging reports can be compiled on a daily, weekly or monthly bases. 



345.00 



$ 1,006.55 



LYNN'S CHECKBOOK- 
LEDGER SYSTEM 

•Phone Supported Ask For Ron^ 

• saves hours of posting to general ledger • almost 
completely eliminates mathematical errors • menu driven • 
200 expense fields •will handle 1 ,000 checks a month •will 
print checks with option to enter handwritten checks • will 
do reconciliation statement with hardcopy • will print 
hardcopy of field totals both by month, year to date and end 
of year • automatic account numbering • automatic field 
entry •will print hardcopy of checkbook register • debit and 
credit memo entry • alphabetical hardcopy of accounts 
payable and account numbers (machine language sort, very 
fast) • AND MUCH MORE! • 



■LYNN'S' 



Account Receivable System $49^^ 

Account Receivable Aging Report $20"° 

Checkbook Ledger System . $6^^ 

Well's Data Base Manager $39^5 
Add S2.00 Freight and Handling. 

Illinois Residents Add 6% Sales Tax. 

Send $10.00 Per System 

For Printouts and Documentation. 

Credit Given on Order 

Equipment Needed: 48K Model I or III, 

Lineprinter, 2 Disk Drives. /-r»iiiiDi itcd ccd\/i<^c 

Tu u II I, TDcr>nc 1 o ,„,j LYNN COMPUTER SERVICE 

The above programs will workonTRSDOS 1 .2 and <c-io 

1.3 for the Model III. NEWDOS, NEWDOS80, 6831 W. 157 St. 

NEWDOS80 V2.0, LDOS and MULTIDOS for the Tinley Park, Illinois 60477 

Model I and III. (312)429-1915 

JFRSBO and TRSDOS are trademarks of TANDY CORP NEWDOS and NEWDOS80 are trademarks of APPARAT INC LDOS is a trademark of LOGICAL 



DATA BASE MANAGER 
BY WELLS 

perfect tool for storing and maintaining mailing list, 
inventories, menus, collection records, article references, 
important dates, client records • all functions menu driven • 
easy to interface to word processors and communication 
programs • sort in ascending or descending order (fast 
machine language sort) • compact storage with minimum 
overhead • go from data base to visicalc and return • sort and 
select visicalc lines!!^ interface to Radio Shack's "advanced 
statistical package". 




f\— Oft t , '*"»i .'"Tc* ''^'je ^ 

"■' ,; •". 




SYSTEMS INC^ 



assembling the complete byte to be output to port 235 it is 
necessary to use 01 for 7 bits. 

For example, suppose that we desire to configure the RS- 
232-G interface with even parity enabled, one stop bit, and a 
7-bit word length. (These would be the default values for 
many communication systems.) We notice from Table 5 that 
parity is enabled by placing a in bit 3, that one stop bit 
requires a in bit 4, that even parity requires a 1 in bit 7, and 
that a word length of 7 bits requires 01 in bits 5 and 6, from 
our discussion above. We must also place a 1 in bit 2 to 
enable data transmission, and the contents of bits and 1 
determine the request to send and data terminal ready 
signals. The complete byte is thus 1 01 001 00 binary or 0A4H 
hexadecimal. Before this value can be output to port 234, it 
would be necessary to output any value to port 232 to reset 
the controller. 

The baud rate is set by outputting a byte to port 233. Since 
the UART can transmit and receive data at different rates, it 
is necessary to specify both rates. Sixteen different baud 
rates may be specified; these are shown in Table 6. (These 
values are given as hexadecimal "nibbles" in order to 
simplify the combining of values for both the transmit and 
receive rates in bits 4-7 and 0-3, respectively.) The most 
commonly used rates are 110, 150, 300, 600, 1200, 2400, 
4800, and 9600 baud, and most systems require transmission 
and reception at the same rates. To set the baud rate, it is 
necessary to output a byte to port 233, after the controller 
has been reset by outputting any value to port 232. To 
specify 300 baud, for example, the value of 55H would be 
used, specifying 5 for both transmitting and receiving data. 
Nibble Baud Rate Nibble Baud Rate 

m 50 9H 2m 

IH 75 AH 2m 

2H 11)3 BH 3600 

3H 134.5 CH 4800 

4H 150 DH 7200 

5H 300 EH 9600 

6H 600 FH 19200 

Table 6: Baud Rate Select values. 

When the TRS-80 is used as a terminal in data 
communications, it is customary to display the incoming 
bytes on the video screen. Unfortunately, the software 
required to display the carriage return (ODH) takes a 
considerable amount of time in relation to the faster baud 
rates, since the entire contents of the screen must be 
scrolled following the carriage return. (This is even worse 
with many hard-copy printers!) Therefore, one or more bytes 
following the carriage return may be lost. To avoid this 



Baud Rate 


Number of Nulls 


110-600 


none 


1200 


2 


2400 


4 


4800 


8 


9600 


16 



Table 7: Nulls required after carriage return at high 
baud rates. 



problem, it is necessary to have the transmitting device 
produce one or more nulls (hexadecimal 00) following the 
carriage return, and fortunately this feature is a standard in 
many communication protocols. Table 7 shows the number 
of nulls required for the most important high baud rates. 
When this precaution is taken, the TRS-80 is capable of 
communicating at these rates. 

TERMrNAL PROGRAM 

As mentioned above, the two principal applications of the 
RS-232-C interface on the TRS-80 Model 1 and 3 computers 
is for a data communications terminal and as an interface for 
a serial printer. Each application requires somewhat different 
software. In this section we discuss the terminal, and in the 
next the printer. 

A "dumb" terminal is a combination ASCII keyboard and 
video display which is connected to another device, such as 
a minicomputer or a modem. It allows data to be entered on 
the keyboard and transmitted to the other device, and it 
displays data transmitted from the other device on the video 
display or on a hard copy printer. Such terminals are called 
"dumb" because, although they may incorporate a micro- 
processor and memory, the computing power of the terminal 
is not used except for the communication. 

There are many ways in which the TRS-80 could be used 
as a terminal when equipped with the appropriate software. 
By using a modem, which usually is connected to a 
telephone line, it is possible to access a time-sharing 
computer or "bulletin board". "Modem" is an abbreviation 
for "MOdulator/DEModulator." It translates the serial data 
into tones which can be sent across a standard telephone 
line. There are numerous modem protocols, but the most 
important ones are Bell 103 for 300 baud and Bell 21 2A for 
1200 baud. By connecting another computer or device 
directly to the RS-232-C cable, it would be possible to use 
the TRS-80 as a terminal without a modem. 

A complete listing of a dumb terminal program is included 
below. In reviewing its operation, let us first describe the 
process in general and then review the assembly language 
code. In the following discussion, we will assume that the 
RS-232-C interface is connected to a modem, which is in 
turn communicating with another computer. We want to be 
able to carry on a two-way dialog at all times. 

The terminal program must constantly toggle between the 
RS-232-C interface and the keyboard to see whether a 
character is present at either device. Characters typed at the 
keyboard are transmitted to the modem, and characters 
received from the modem are displayed on the video screen. 
These are the only necessary functions, but in the program 
we add three others: a true BREAK key, use of the/cLEAR key 
to clear the video display, and an exit from the program, 
which is accomplished by typing "control-C". (Control keys 
are produced by holding down both the shift and down 
arrow keys and typing a letter.) On most communication 
equipment, "break" is a signal that actually disrupts 
communication in order to inform the other device of some 
special condition, such as a desire to suspend whatever 
operation is currently in progress. Before starting the 
communication process, we must initialize the RS-232-C 
configuration and baud rate. 
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WABASH WARRANTY FLEXIBLE DISKS 




wabasK 

5-YEARWARRANTY 

8" Maxi-Myte 
Flexible Disks 

The only 8" diskettes guaranteed 
to perform for a full five years. 

Single Side / Double Density 

$QQ95 

^/ ^# EACH BOX OF 10 



wabasK 2-year warranty 

sy/ Mini-Myte Flexible Disks 

The only SVV d'skettes guaranteed 
to perform for a full two years. 



Single Side / Double Density 



$34.95 



BOX OF 10 



COATING The Coating process has 
been recently innproved by our revolu- 
tionary SR-3000 manufacturing process, 
resulting in a connpletely uniform surface, 
with excellent adherence to the polyester 
base. The result: consistent signal qual- 
ity which is crucial to all applications, on 
all ap propriate drives. 

PUNCHING State-of-the-Art equip- 
ment at the Paoli plant assures precision 
punching and assembly for every Wabash 
diskette. Certification and initialization are 
also care fully supervised at 
this stage, guaranteeing sat- 
isfactory use of Wabash dis- 
kettes for years to come. 

Ask us about our other in-stock 
and ready-to-ship products 
including printer ribbons, 
pressure sensitive labels, 
paper, media storage equip- 
ment, and more! 



CALL TODAY OR SEND COUPON 

800-431-2818 ^Si 914-425-1535 





I 




E LiLLI ■ ll U I riLLI ■iILil] C. Spring vlflev. N.Y 10977 

n Please send me boxes of 8" Maxi-Myte Flexible Disks at $39.95 

'— ' per box. Please add $3.00 for shipping. 

n Please send me boxes of 5 VV Mini-Myte Flexible Disks at $34.95 

'— ' per box. Please add $3.00 for shipping 

□ Please send me more information about other Computronics products. 



Q Check enclosed Q 

Credit Card No 

Name 



VISA 



D 



_Exp.- 



Address- 



I 
I 
I 



City/State/Zip_ 
Phone ( 




TERMINAL PROGRAM 



00100 ;DUMB TERMINAL PROGRAM 




00110 KBCHAR 


EQU 


2BH 


;ROM ROUTINES 


00120 VDCHAR 


EQU 


33H 




00130 VDCLS 


EQU 


1C9H 




00140 TRSDOS 


EQU 


402DH 




00150 ; 








00160 MODEM 


EQU 


232 


;RS232 PORTS 


00170 CONFIG 


EQU 


233 




00180 STATUS 


EQU 


234 




00190 DATA 


EQU 


235 




00200 ; 








00210 


ORG 


7000H 




00220 TERM 


LD 


(OLDSP),SP 


;SAVE OLD SP 


00230 


LD 


SP.STKTOP 


;LOAD NEW ONE 


00240 


CALL 


VDCLS 


; CLEAR THE SCREEN 


00250 


LD 


A, 14 


;TURN ON CURSOR 


00260 


CALL 


DISP 




00270 


CALL 


RSINIT 


; INITIALIZE RS232 


00280 ; 








00290 INS 


CALL 


RSIN 


;NEW UART INPUT? 


00300 


JR 


Z.OUTS 


;N0 


00310 


CP 





;YES. IGNORE NULL 


00320 


JR 


Z.OUTS 




00330 


CP 


7FH 


; IGNORE RUBOUT 


00340 


JR 


Z.OUTS 




00350 


CALL 


DISP 


DISPLAY UART INPUT 


00360 ; 








00370 OUTS 


CALL 


KBCHAR 


NEW KBD INPUT? 


00380 


OR 


A 




00390 


JR 


Z.INS 


NO 


00400 ; SPECIAL FUNCTIONS 




00410 


CP 


1 


BREAK KEY: 


00420 


JR 


Z, BREAK 


BREAK TRANSMISSION 


00430 


CP 


3 


CONTROL-C: 


00440 


JR 


Z.EXIT 


EXIT 


00450 


CP 


31 


CLEAR KEY: 


00460 


JR 


Z, CLEAR 


CLEAR SCREEN 


00470 ;OMIT FOLLOWING LINE FOR HALF-DUF 


'LEX MODEM 


00480 


CALL 


DISP 


DISPLAY IT 


00490 


CALL 


RSOUT 


SEND TO UART 


00500 


JR 


INS 


END OF MAIN LOOP 


00510 ;EXIT PROGRAM 






00520 EXIT 


LD 


SP,(OLDSP) 


RESTORE SP 


00530 ; CHANGE FOLLOWING TO '1A19H' FOR 


NON-DISK SYSTEM 


00540 


JP 


TRSDOS 


RETURN TO DOS 


00550 ; CLEAR 


KEY DEPRESSED 




00560 CLEAR 


CALL 


VDCLS ; 


CLEAR SCREEN 


00570 


JR 


INS 




00580 ; BREAK KEY PROCESSING 




00590 BREAK 


LD 


A,0A0H ; 


ZAP BREAK BIT 


00600 


OUT 


(STATUS), A 




00610 BKON 


LD 


A,(3840H) ; 


KEY STILL DOWN? 


00620 


CP 


4 ; 


BREAK BIT 


00630 


JR 


Z.BKON ; 


WAIT TILL RELEASED 


00640 


LD 


A,0A4H ; 


RESTORE CONFIG 


00650 


OUT 


(STATUS), A 




00660 


JR 


INS ; 


RESUME 


00670 ; 








00680 ; SUBROUTINES 







00690 DISP PUSH 


AF 


; DISPLAY BYTE 


00700 CALL 


VDCHAR 


;SAVE 8 RESTORE 


00710 POP 


AF 


; CHARACTER 


00720 RET 






00730 ; INITIALIZE UART 




00740 RSINIT OUT 


(MODEM), A 


; RESET UART 


00750 LD 


A,55H 


;300 BAUD 


00760 OUT 


(CONFIG), A 


;SET BAUD 


00770 LD 


A,0A4H 




00780 ;EVEN PARITY ON, 7 BITS, 1 STOP BIT 


00790 OUT 


(STATUS), A 




00800 RET 






00810 ; RECEIVE CHARACTER 




00820 RSIN IN 


A, (STATUS) 


CHECK STATUS 


00830 BIT 


7, A 


CHAR READY? 


00840 JR 


NZ, RSRCD 


YES 


00850 XOR 


A 


NO: 


00860 RET 




RETURN ZERO 


00870 RSRCD IN 


A, (DATA) 


GET CHAR 


00880 RET 




RETURN IN A 


00890 TRANSMIT CHARACTER 




00900 RSOUT LD 


C,A 


SAVE CHAR IN C 


00910 NOTRDY IN 


A, (STATUS) 


CHECK STATUS . 


00920 BIT 


6, A 


READY? 


00930 JR 


Z, NOTRDY ; 


NO 


00940 LD 


A,C ; 


GET CHAR IN A 


00950 OUT 


(DATA), A ; 


TRANSMIT IT 


00960 RET 






00970 ;DATA STORAGE 






00980 OLDSP DEFS 


2 ; 


STACK POINTER 


00990 DEFS 


64 ; 


STACK AREA 


01000 STKTOP EQU 


$ 




01010 END 


TERM 





SERIAL PRINTER PROGRAM 

The other major application for the RS-232-C interface is 
for communicating with a serial printer. In this situation it is 
desirable not just to have a special means to access the serial 
printer, but to have it work with standard line printer 
functions On the TRS-80, such as the LPRINT statement in 
BASIC. For this purpose, we will not only design driver 
program software; we will also use the line printer DCB in 
low RAM to replace the ROM driver address with the 
address of our driver program, and we will automatically set 
the memory size for BASIC programs. The only detail we 
need to know about the line printer driver is that it is entered 
with the byte to be printed in register C. 

Much of the software to access the RS-232-C interface has 
already been covered in the terminal program above, and we 
will use some of the subroutines shown in that program here. 
Now we only need an output routine, because the printer is 
only an output device. In order to make this program 
different, let us assume that the printer operates at 1200 
baud, and that we are required to transmit a line feed 
following a carriage return. This program is assembled into 
two areas in RAM: the code at 5200H is used to set up the 
new driver, which is located at FF78H and requires less than 
32 bytes. All that we do here is change the line printer DCB 
address and set the BASIC memory size pointer at 40B1H. 

continued on page 30 
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Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
Like These Every Month 



HARD DISK DRIVE Diablo Mod 31 
1.2 MByte std. density Includes 
power supp and cable, rack mount 
slides, amd manual. Excellent 
condition. $450_9v'- '--^601 



7/16 Mm. with 32KB core front 

HS tape reader, interfaces for LP 2 
(TTY), and RS-232 (Full duplex. 



^ COnuiuui.. 4-^Jii_>^ ,\ >■■■', aiiu Ki-^JJ Full J 

■L_B-~^<=cJ>-:;;rTe5 CPS ^^"^' Vy programmable). Includes m;,, 

and pafa»e> , .„, saes-^»"»'^ U etc.,). $aoo - After 6 W^^Vi 

^".ltX\e character ^^^^_^^es U ^03,^ ^^^^^^..^ 



And pafa"^/ ,^tpr sizes-Sm^e 

mechanisni^^a^_^^j_^^g^^^ 

'^'^f'^iEATHKIT H-11/DEC LSI-11 
system, 32K Byte storage, reader 1 
1 punch, video terminal, complete 
software. Cost $4500 assembled, 
$3500 kit. Like new. Sell for $2250. 
305-962-6677. 2058 Griffin Rd., Ft 
Lauderdale, FL 33312 



Sta^ 

St. 

25C 



COMPUTER AUTOMATION ALPHA 
16; 16 k-word core mern7'RTC 
PF-R. Modified Mod. ASR-33 TTY| 
Manuals, utilities, assemblers an^ 
many option boards - 16 bit I/O 
Sr Jer, 16 bit I/O, Asynh modem 
contr 64 bit output, 10 bit A/D - 
D/A. Fairly complete documen- 
tation. Up and running m Fortran. 
Not much more than TTY at $10W. 
Herb Sauer, 303-494-8724. 



FOR SALE: Heath H9 video ter- 
minal excellent condition, $175 or 
best offer. You ship. [214] 962-4484 

memory board without memory 

h.ps and Phi deck controller boa;d 
(k.t;.^ssembledor not working) ^ 

" Pet businefs °^'"^^^^^^ 

,^vs'em comp,e" Jf^ /^^ each 

^«fe software aZ^ '"^^^^^e, real 
^"'^U1(373)V^%;,°-^S2,W 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But, COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, mbney- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation. 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it. 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items. Combining 
this with low individual ad rates — 12 cents a word — 




makes it the ideal place for buyers and sellers to com- 
municate. And, its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible. 

COMPUTER SHOPPER will work for you in other 
ways, too. If you are just thinl<ing about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first? We'll give you your first issue FREE 
and then bill you for the next 12 If you are not convinced COM- 
PUTER SHOPPER suits your needs, |ust write "cancel" on the in- 
voice and return it 

And, to let COMPUTER SHOPPER start working for you right now. 
with a paid subscription well also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want. 

If you don't need to use the free classified ad now, use it anytime 
during your subscription. 

Subscription: $10/year, 12 issues plus your first free one. Bank 
cards accepted. Money back guarantee 




The Nationwide Marketplace for Computer Equipment 

camPUTSR shiappsR 

P.O- Box 23 • Titusville, Florida 32780 
Telephone 305-269-321 1 

MasterCharge or VISA orders only, call TOLL FREE 800327-9920. 



PROGRAM CONVERSION (PART V) 

Richard Kaplan 



This month I will discuss various aspects of upgrading from 
TRSDOS to CP/M, the so-called "universal" operating 
system. I w^ill explain exactly what CP/M is, what its 
advntages are, and how to convert existing software to this 
operating system. 

WHAT IS CP/M? 

CP/M (an acronym for "Control Program/Microproces- 
sors") is a universal operating system available on hundreds 
of 8080 or Z-80-based microcomputers. CP/M formats a disk 
in a special manner, which is readable by virtually any other 
(8-inch) computer which is also equipped with CP/M. A 
software vendor can write a program on a TRS-80, for 
example, and the same disk can be purchased by owners of 
Vector Graphics equipment. Data Genera! Computers, IBM 
computers, and hundreds of other computers. The result is 
that by purchasing CP/M you will have access to the largest 
software library in the world— the CP/M library. 

WHY SHOULD I PURCHASE CP/M? 

By purchasing the CP/M operating system, you will 
improve the usefulness of your computer in many ways, 
including gaining access to a tremendous variety of software. 
CP/M loads and saves programs from disk much faster 
than does any version of TRSDOS. This is an important 
consideration if you intend to use your TRS-80 for business 
purposes. CP/M operates faster for ALL disk accessing needs, 
so if you maintain a mailing list (for example) you will spend 
much less time waiting to retrieve information from disk. 

Should you ever decide to upgrade to another computer 
system, if you own a TRS-80 operating with TRSDOS you 
may experience some difficulties transferring your existing 
software and data to your new system. With CP/M, all of your 
software will run IMMEDIATELY on ANY new computer you 
purchase, providing you own a CP/M system that uses 8-inch 
disks. 

CP/M is simply a series of machine-language programs 
written by Digital Research, Inc. This operating system may 
be purchased on disk from a number of software vendors, 
including H & E Computronics. All you must do is insert your 
CP/M disk into your computer instead of your TRSDOS disk 
(when you boot up your system). The result is a literal 
transformation of your computer into a different machine. 
BACKUP, FORMAT, etc. will no longer work on your 
computer (temporarily)! Instead, CP/M commands will be 
substituted. 

There are several versions of CP/M available for the ModeT 
II. The two most popular are Lifeboat CP/M and Pickles and 
Trout CP/M. Regardless of the version you purchase, you will 
be able to read ANY 8-inch CP/M program manufactured. 
(Actually, you will only be able to read all SINCLE-density 
CP/M disks, but this is generally the standard format for 
supplying 8-inch CP/M software). 

Model I CP/M is available from Lifeboat Associates in New 



York. Model III CP/M is not yet very popular; there is 
presently only one version of CP/M available for the Model 
III, sold by Microcomputer Technology in Santa Ana, 
California. This Model III CP/M is sold as a card, which must 
be installed into your computer. It is a hardware modification 
that is not supported by Radio Shack. 

WHAT ELSE SHOULD I PURCHASE? 

In addition to purchasing CP/M, it is usually necessary to 
purchase Microsoft BASIC. If you intend to do any 
programming in BASIC, this is a necessity. Unlike with 
TRSDOS, BASIC is not supplied with the CP/M operating 
system. 

Many software packages designed for CP/M systems 
require Microsoft BASIC (known as MBASIC). Versaledger 
(from Computronics) and Peachtree Business Software are 
two examples of software which requires MBASIC. 

If you own a 5 1/4" version of CP/M, you will find that 
CP/M is not as universal among this size disk. There are 
several formats of 5 1/4" CP/M, and, although programming 
is the same for any CP/M computer, not all formats are 
readble by all versions of 5 1/4" CP/M. It is possible to 
purchase conversion programs to change between various 
CP/M formats, so this should not be a major obstacle in 
purchasing CP/M software in order to accomodate users of 
many 5 1/4" systems. 

CAN I TRANSFER MY EXISTING SOFTWARE? 

It is possible to convert a TRSDOS disk to a CP/M- 
readable format. Although programming modification will 
still be necessary, all of you data can be transferred, and the 
transfer of your programs will save unnecessary re-typing of 
those programs lines which will not require modification. 

Conversion from TRSDOS to CP/M is generaly accomplished 
through a utility program. Model II users running Lifeboat 
CP/M, for instance, can use a program called GETFILE. This 
program can convert any 8-inch TRSDOS disk to CP/M 
format. 

WHAT WILL I HAVE TO CHANGE? 

There are essentially two types of files which must be 
converted to run under CP/M. Machine language programs 
are the most difficult. Unless you are an accomplished 
machine-language programmer, I would not suggest that you 
even attempt to convert this type of program. 

BASIC programs can be converted to run under Microsoft 
MBASIC fairly easily. Most elements of programming which 
need to be changed are fairly ofjective and straightforward. 

CLS 

The CLS statement is used to clear the screen on all three 
TRS-80's. When running under Microsoft MBASIC, however, 
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this statement does not exist. Microsoft MBASIC clears the 
screen by means of a CHR$ code. This means that you must 
execute a statement such as PRINT CHR$(X), where X is the 
code for your version of CP/M. For a Model II running under 
Lifeboat CP/M, for example, the statement PRINT CHR$(26) 
clears the screen. 

The conversion process can be greatly simplified if you 
purchase a word processor, such as a Word Star. If you 
purchase a word processor which has the capability of 
modifying BASIC programs, you can execute what is known 
as a global search and replace. You can, for example, replace 
every occurrence of CLS with PRINT CHR$(26^, thus greatly 
lowering the time requirements for converting your program. 

(Note: If you wish to modify a BASIC program, you must 
SAVE this program in uncompressed (ASCII) format. Instead 
of typing SAVE "TEST" for example, you would type SAVE 
"TEST",A. This program would then be readable by a word 
processor which can read standard ASCII text files). 

PRINT @ 

MBASIC does not support the PRINT @ statement. 
Although some versions of CP/M include a feature to 
simulate this statement, it is generally necessary to write a 
routine to locate the cursor on the screen. First, you must 
look up the codes to home the cursor to the upper left 
corner, to code to move the cursor down a line without 
erasing characters, and the code to move the cursor one 
position to the right without erasing characters. 

Let's say you have set X to equal the value to home the 
cursor, Y to move the cursor down, and Z to move the cursor 
across. First, you should include the following subroutine in 
your program: 

60000 DN=INT(Q/80) 

60010 AC=Q-INT(Q*80)880 

60020 PRINT CHR$(X) 

60030 IF DNOO THEN PRINT STRING$(DN,Y); 

60040 IF ACOO THEN PRINT STRING$(AC,Z); 

(NOTE: The preceding program was designed for the Model 
II. If you own a Model I or Model III, you should change each 
occurence of '80' to '64'.) 

Assuming you have included the previous subroutine in 
your program and set the appropriate values for X, Y, and Z, 
you should replace PRINT @ statements as follows: 

PRINT @1000, "THIS IS A TEST" 

would become 

Q=1000: GOSUB 60000: PRINT "THIS IS A TEST" 

DISK ACCESS 

There are several differences between the way TRSDOS 
and CP/M handle disk access. 

TRSDOS identifies a program (or file) with the format 
PROC/BAS:N, where PROG is the name of the program, BAS 
is an optional "extender" (to further identify the program), 
and N can be either 0, 1, 2, or 3 (to denote the drive on 



which the file resides). CP/M identifies a program (or file) 
with the format N:PROG.BAS, where N can be A, B, C, OR D, 
PROG is again the file name, and BAS is again an optional 
extender. To give some examples of equivalent disk file 
specifications, I have listed the following: 

TEST/BAS:0 under TRSDOS would become A.TEST.BAS 
under CP/M. 

PROGRAM:2 under TRSDOS would become 
CPROGRAM under CP/M. 

Most disk commands operate identically in TRSDOS and 
CP/M (GET, PUT, FIELD, MKD, CVD, etc.). The OPEN 
statement, though using the same notation in TRSDOS and 
CP/M, has one difference between the two operating 
systems: TRSDOS will search for a file on all drives in a 
system, whereas CP/M will only search the drive specified. 

The TRSDOS statement OPEN "R", 1, "TEST" would 
search all drives in the system and open the file on the first 
drive on which it is found, if it already exists, or else it would 
open the file on the first drive (drive 0). Under CP/M, this 
statement would search the default drive (drive A). If the file 
did not exist, CP/M would open the file on drive A and would 
not search the remainder of the other disks. 

Let's say your TRSDOS program has the following line: 

10 OPEN "R",1, "PROG/DAT" 

An equivalent CP/M routine would be the following: 

10 OPEN "R",1/'A:PROG.DAT" 

20 IF LOF(1)<>0 THEN 100 

30 CLOSE: KILL"A:PROG.DAT": OPEN "R",1 ,"B:PROG.DAT" 

40 IF LOF(1)<>0 THEN 100 

50 CLOSE: KILL "B:PROG.DAT": OPEN "R",1 ,"C:PROG.DAT" 

60 IF LOF(1)<> THEN 100 

70 CLOSE: KILL"C:PROG.DAT": OPEN "R",1,"D:PROG.DAT" 

80 IF LOF(1)<> THEN 100 

90 CLOSE: KILL"D:PROG.DAT": OPEN "R",1 ,"A:PROG.DAT" 

100 REM THE REST OF THE PROGRAM GOES HERE 

The preceding routine would search all drives on a 4-drive 
system to see if the file PROG/DAT existed. If it did, the file 
would be opened on the first drive on which it appeared. If it 
did not exist, it would be created on drive A. (NOTE: If you 
only have 2 drives, you should delete lines 60 through 90 
and replace "C" in line 50 with "A". If you have 3 drives, you 
should delete lines 80 and 90 and replace "D" in line 80 with 
"A") 

LOF 

Under TRSDOS, a random-access file can have variable- 
length records. That is, records in a file can be of any length 
(up to 255), provided all records in a file are of equal length. 

Under CP/M, variable-length files are supported, but the 
LOF is not computed correctly for non-standard files (those 
with record lengths other than 128). Under CP/M, the 
default record size is 128 characters. (Under TRSDOS, the 
default is 256 characters). 

If you have a TRSDOS program which uses the LOF 
function on a file with a record length other than 128, you 
should keep a record manually of the length of the file. 

continued on page 31 
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PRACTICAL BUSINESS PROGRAMS 

BREAK-EVEN ANALYSIS FOR MORE THAN TWO ALTERNATE INVESTMENTS 
Steven M. Zimmerman, Ph.D. and L. M. Conrad 



Copyright ® Zimmerman and Conrad 1982 



Break-even analysis is a finanical decision making tool of 
great value in making preliminary analysis of business 
investments. It is a simple technique and has the additional 
advantage of being graphical, which means it may be 
understood by a greater number of individuals. Limitations 
on the approach include the fact that many detailed 
considerations are left out, however, as a first preliminary 
screen method it is an outstanding tool. 

Our original version of this program was published in this 
magazine's March 1980 issue. In that version we designed a 
two alternative comparison program to do both the analytical 
evaluation, and to draw a picture of the comparison. The 
original program was very simple to operate because it 
compared only two alternatives. 

This version of the program allows for the comparison of 
up to six alternate decisions at the same time. Operation of 
the program is a little more complex but if you need to 
compare a number of alternatives at the same time the effort 
is worth it. 

We have limited the number of alternative to six because 
the graphics on our TRS-80 are not detailed enough to 
handle more than this number. Even with a limit of six the 
graph can get very busy a times. 

BACKGROUND AND THEORY 

There are two basic types of break-even charts. One is 
designed to compare the total of the fixed costs and variable 
costs of an investment with the revenue function while the 
second is designed to compare the total cost of two or more 
alternative investments. The first type chart may be referred 
to as a business chart, while the second type may be called 
an engineers chart due to the nature of the decisions 
generally being studied. 

This program allows for the making of both the business 
decision, should I go into business, and the engineer's 
decision, which is the best way to do the job, at the same 
time. The revenue function may be compared to total cost 
functions of up to five alternate ways to do the job. 

TOTAL COST 

The cost model we are using in the program assumes a 
fixed investment type cost for each alternative having 
nothing to do with the volume of production or sales. 
Examples of this type of cost includes the purchase price of a 
car, or machine, the investment in a building etc. 

The second type of cost is assumed to vary directly with 
the volume sold or produced. This cost is assumed to have a 
straight, linear, relationship with the measure of output. 

We are aware of the trend in some quarters to use more 
powerful cost models. Since the objective of break-even 
analysis in our oponion should be a preliminary decision 



making evaluation we believe such more complex models 
would not be of value. 

The equation for total cost may be written: 
TC = FC + VC * X 
where 

TC is the total cost 

FC is the fixed cost 

VC is the variable costs 

X is the number of units produced. 

Revenue functions may get very complex with price 
breaks and such. For the break-even model we assume a 
single price per unit no matter how many units are sold. The 
equation we use is: 

R = P * X 
where 

R is the revenue 

P is the price per units 

X is the number of units sold 

We have defined X as the number of units produced in our 
first equations and the number of units sold in the second 
equation. In order to do a break-even analysis, we must 
assume the number of units sold is equal to the number of 
units produced. In some business ventures this is a valid 
assumption, in others it is not. Do not forget it is one of the 
foundation assumptions upon which break-even analysis is 
based. 

In summary, to use the break-even analysis program you 
must know the fixed cost and variable cost of each 
alternative. If a revenue function is being considered you 
must also know the price per unit, or average price per unit. 

RUNNING THE PROGRAM 

The program starts with the following headings and 
question: 

BREAK-EVEN CHART ANALYSIS VERSION 2 

DEVELOPED BY ZIMMERMAN, CONRAD 1982 

NUMBER OF ALTERNATIVES (2 TO 6)? 

For our sample run we have decided to compare two 
alternative investments plans with one revenue function. The . 
answer to the above question must be three in this case. 
Type 3 and hit the ENTER key. 

The next thing you will see is: 

FOR ALTERNATIVE # 1 INPUT FIXED COST, VARIABLE COST? 

All inputs are treated as if they were investments. To input 
the revenue function we assume the fixed costs are zero and 
then input the revenue earned per unit. Assuming we are 
working with a product which has a average selling price of 
$50.00, we input for the above question 0,50 and hit the 
ENTER key. 

The question will be repeated for alternative 2 and 3. 
Assume the second alternative has a fixed cost of $5,000 and 
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a variable cost of $32.00. Input 5000,32 for the fixed and 
variable cost of alternative 2. 

Assume the last alternative has a fixed cost of $7,000 and 
a variable cost of $1 7.00. For this question type 7000,1 7 and 
hit the ENTER key. 

The next question is: 

HARD COPY (Y/N)? 

If you have a printer the computer will produce on any 
regular printer a rough copy of the break-even chart from 
your screen. No special graphics printer is needed for the 
routine we have developed. We realize that special graphic 
printers do a better job for this task. However, most people 
have the other type of printer. 

We suggest you do not ask for a hard copy at this time. The 
program is designed to retain all its information, with the 
exception it will turn the printer off between runs. This 
means you can recycle to obtain printer output after you 
have obtained the screen picture which tells the best story 
for the task being studied. 

Type N and hit the ENTER key. 

The next question is: 

MAXIMUM VALUE ON X SCALE & SCALE FACTOR ON Y SCALE 

This question is very difficult to answer at this time. You 
can only guess what you would like your picture to look like 
until you have completed a preliminary scaling. We guessed 
the value of the X scale should be 200 and used a 1 for the Y 
factor for the data we inputted. Now type 200,1 and hit the 
ENTER key. 

The screen will now clear and a break-even chart will be 



X(1 


-2 ) = 277.778 


X(1 


- 3 ) = 212.121 


X(2 


- 3 ) = 133.333 



drawn. Looking at the picture we realized the break-even 
points were all at the upper end of the picture. The 
instruction on the top of the screen says "ENTER TO 
CONTINUE," so we did and the following was printed on 
top of the screen: 



BREAK-EVEN POINT Y( 1 -2 ) = 1 3888.9 
BREAK-EVEN POINT Y( 1 -3 ) = 1 0606.1 
BREAK-EVEN POINT Y( 2 -3 )=9266.67 



This tells us the value of the output where alternative 2 
starts to make a profit is 278 units, while the output at which 
alternative 3 starts to make a profit is 212 units. It also tells us 
alternative 3 becomes cheaper than alternative 2 after 133 
units have been produced. In other words, long before either 
alternative investment starts to earn a profit the higher 
investment alternative costs less than the lower investment 
alternative. 

The Y value associated with the X value of break-even is 
simply the total cost or revenue at the time the break-even 
occurs. 

Now that we see where break-even points are we can 
draw a better picture or pictures to study the investment. 
The program is designed such that you need not enter new 
data as you recycle if you wish to redraw the picture. 

If you hit ENTER you will see the heading again. Do 
nothing except hit ENTER and you will see the question 
asking about the cost of the first alternative. Hit ENTER for 
this question and all others until you return to the scale 
question. This time type 1,300 and look at the picture. 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKES IT 
POSSIBLE TO CONNECT AN ASCII SERIAL PRINTER TO THE 
PARALLEL PRINTER PORT ON THE TRS-80. 

Software compatibility problems are totally eliminated because 
the TRS-80 "THINKS" that it has a parallel printer attached. 
NO MACHINE LANGUAGE DRIVER NEEDS TO BE LOADED 
INTO HIGH MEMORY BECAUSE THE DRIVER ROUTINE FOR 

THE UPI-3 IS ALREADY IN THE TRSBO ROM! SCRIPSIT, PENCIL, 
RSM 2, STSOD, NEWDOS, FORTRAN, BASIC etc. all work as it a 
parallel printer was in use. 

The UPI-3 is completely self contained and ready to use. A 34 
conductor edge card connector plugs onto the parallel printer 
port of the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB25 socket mates with the 
cable from your serial printer. The UPI-3 converts the parallel 
output of the TRS-80 printer port into serial data in both the 
RS232-C and 20 MA. loop formats. 
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SPEEDWAY ELECTRONICS 

Division o( Binary Devices 

11560TIMBERLAKE LANE 
NOBLESVILLE, IN 46060 
(317) 842-5020 

TRS 80 Is a trademark ol Tandy 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per V\/ord 

• Parity or No parity 

• ODD or EVEN Parity 



NOW 
AVAILABLE 
FOR 
MODEL 11 



UPI-2 for TRS80 Model II $149.95 

UPI-3 for TRS80 McxIel I or 3 $149.95 

UPI-4 for use with Model 1 and RS Printer 

Interface Cable (no expansion interface required) $159.95 

Manual only (may be applied to order) $ 5.00 

Ten day return privilege — 90 day warranty 

Shipping and Handling on all orders $ 4.00 

Specify BAUD rate 50-9600 BAUD 
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ST80-III The Ultimate Communications Paclcage: 

Price $150.00 

This is our top of the line communication package. Full disk 
support including DOS commands have been implemented^ 
ST80-III '" has been on the market for over two years and has 
become the standard in TRS-80 '" communication. This 
package has been used in a wide variety of applications 
including use with: 

Addressomultigraph, Compugraphics, Spectrometers, and a 
wide range of Time-sharing computers. 

IBM CDC ITEL Honeywell 

DEC WANG Prime Data General 

Amdhal RCA XEROX GE 

Apple Heath Northstar Altos 

Superbrain PET Cromemco HP 2000 

The package includes the ST80-III '" smart terminal program 
and nine other communication utilities: Fully documented 
with easy to follow Instructions, ST80-III '" is by far the best 
terminal product on the market today. Features: 

1 ) User configurable communication tables 

2) Auto Logon 

3) Last line repeat 

4) Formatted video (Page, Scroll & Formatted) 

5) Direct cursor addressing 

6) File transfer from disk or to disk 

7) Printer support 

8) Echo, Feedback &■ Veriprompt " verifies data 
transmitted 

9) 110 to 9600 BAUD support 

10) Remote control of Memory open & close. 
Printer on 8- oipf. Video on & off & auto logon 

11) Help display 

12) User definable function keys 

Host Communications: Price $ 50.00 

This program is by far the best HOST program you can buy. 
It supports the PRINT @ statement for the remote 
TRS-80'" running any of the ST80'" smart terminal 
programs. All of the ST80-III " advanced functions are 
supported by host allowing easy access via BASIC, Fortran 
and machine language programs. Host features include: 

1) User defined RS-232 port addressing 

2) Definable BAUD rates from 110 to 9600 

3) Definable break (yes/no) 

4) Allow line feeds 

5) Commands: 

a) Turn on RTS (request to send), 

b) Turn off RTS, 

c) Receive data only from terminal, 

d) Receive data only from host, 

e) Send data only to host, 

f) Send data only to terminal, 

g) Operate in dumb terminal mode, 
h) Operate in ST80" mode, 

i) Check CTS status, (clear to send) 

This is a self relocating subroutine that can load anywhere in 
high memory. 

Communications hardware available 

SMALL BUSINESS 
SYSTEMS GROUP, INC. 

6 Carlisle Road 
Westford, MA 01886 
(617) 692-3800 
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Repeat the cycle again typing 1 ,600 for the scale question 
the next time. Repeate once more typing .5,600 this final 
time. 

At this point we liked the picture we saw and decided to 
save it with our printer. We again recycled except when we 
got to the hard copy question we answered Y and obtained 
the following: 

PROBLEM IDENTIFICATION? 

A break-even analysis is of little value a week after it is 
made if you do not know what investment it refers to. 
Problem identification is very important. 

The next question is: 

DATE? 

The same investment may be looked at a number of times. 
The data of any analysis is important. 
OPERATOR? 

For the record it is always nice to know who did the work. 
We typed in MR. LEO and hit the ENTER key. 

This completes the special input for the hard copy output. 
From this point on the computer produces the same results 
that were on the screen on the printer. Due to the difference 
between the printer and the screen, the order of output is 
slightly different. 

EXAMINING THE PROGRAM 

The headings and input data for the analysis are included 
in lines 10 through 230. The calculations of the break-even 
points take place in lines 240 through 270. Lines 280 through 
350 prepare the computer for both the screen graphics and 
output to the printer. 

The graphics start in line 350 and continue through line 
530. Lines 540 through 560 print the break-even analysis on 
the screen while lines 570 through 720 is the routine which 
copies the screen onto the printer. 

10 CLEAR 3130 : DIM X(6,6) ,Y(6,6) : REM "BTWO" BREAK-EVEN 

REVISION #2 

20 CLS 

30 PRINT "BREAK- EVEN CHART ANALYSIS VERSION 2" 

40 PRINT "DEVELOPED BY ZIMMERMAN, CONRAD 1982" 

50 INPUT "NUMBER OF ALTERNATIVES (2 TO 6)";NA : FOR 1=1 TO NA 

60 IF NA<2 OR NA>6 THEN 50 

70 PRINT "FOR ALTERNATIVE § ";I;"INPUT FIXED COST, 

VARIABLE COST"; 

80 INPUT B(I),A(I) 

90 NEXT 

100 INPUT "HARD COPY (Y/N)";P$ 

110 SS=1 

120 IF P$="N" THEN 230 

130 INPUT "PROBLEM IDENTIFICATION" ;K$ 

140 LPRINT "PROBLEM: ";K$ 

150 INPUT "DATE: ";K$ 

160 LPRINT "DATE: ";K$ 

170 INPUT "OPERATIOR'S NAME";K$ 

180 LPRINT "OPERATOR: ";K$ 

190 LPRINT " " 

200 FOR 1=1 TO NA 

210 LPRINT "N0= "; I, "FIXED COSTS= ";B(I) ."VARIABLE COSTS= ";A(I) 

220 NEXT 

230 CLS 
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240 fOR 1=1 TO NA-1 : FOR J=l TO NA-I : IF A(J+I)=A(I) THEN 

X(I,J+I)=9999999999999 : GOTO 260 

2513 X(I,J+I)=(B(J+I)-B(I))/(A(I)-A(J+I)) 

260 NEXT J, I 

270 FOR 1=1 TO NA-1 : FOR J=l TO NA-I : 

Y(I,J+I)=A(I)*X(I,J+I)+B(I) : NEXT J, I : REM THE END OF THE 

BREAKEVEN CALCULATIONS : X(I),Y(I) ARE BREAK-EVEN BETWEEN I 

AND I+l 

280 IF P$="N" THEN 300 

290 LPRINT " " : FOR 1=1 TO NA-1 : FOR J=l TO NA-I : LPRINT 

"BREAK-EVEN POINT Y(";I"-"; J+I; ")=" ; 

Y(I,J+I),"X(";r'-";J-H;")=";X(I,M) : NEXT J, I 

300 INPUT "MAXIMUM VALUE ON X SCALE 8 SCALE FACTOR FOR Y 

SCALE"; MX, SF : CLS 

310 XX=100/MX : REM CALCULATES SCALES FOR GRAPHICS 

320 MY=0 : FOR 1=1 TO NA : IF (A(I)*MX+B(I)) > MY THEN 

MY=A(I)*MX-t-B(I) 

330 NEXT I : T=SF*MY : S=T/23 : TT=T*1.9 

340 TP=T/14 : PP=TT/14 

350 FOR 1=1 TO 13 : REM BEGINING OF CRT GRAPHICS 

360 PRINT TAB(0)TT-PP*I 

370 NEXT 

380 PRINT 

390 PRINT TAB(8)0;TAB(22)MX/3;TAB(36)(2/3)*MX;TAB(50)MX 

400 FOR 1=18 TO 127 

410 SET(I,40) 

420 NEXT 

430 FORI=0 TO 40 

440 SET(18,I) 

450 NEXT 

460 FOR 1=1 TO NA 

470 FOR P= TO 109 STEP 1/SS 

480 Z=P/XX 

490 W=(A(I)*Z-fB(I))/S 

500 IF W>40 THEN 520 

510 SET(P-fl8,40-W) 

520 NEXT P,I 

530 PRINT gl, "ENTER TO CONTINUE" : Q$=INKEY$ : IF Q$="" 

THEN 530 ELSE IF P$="Y" THEN 560 

540 K=0 : FOR 1=1 TO NA-1 : FOR J=l TO NA-I : K=K-fl : 

PRINT @(K)*64-63, "BREAK-EVEN POINT : Y(";I; "-"J-fI;")="; 

Y(I,J■^I);" X(";I;"-"J+I;")=";X(I,J-fI); : NEXT J, I 

550 Q$=INKEY$ : IF P$="Y" THEN Q$="lll" 

560 IF Q$="" THEN 550 ELSE IF P$="N" THEN 20 

570 T=1.7*SF*MY : REM BEGINING OF PRINTER GRAPHICS 

580 TP=T/38 

590 s$="mm.§§ " 

600 FOR D=2 TO 41 STEP2 

610 HH=T-(D-2)*TP 

620 IF HH<0 THEN LET HH=0 

630 LPRINT USING S$; HH; 

640 FOR 1= 18 TO 109 STEP 1.6 

650 IF POINT(I,D) THEN LPRINT"*"; : GOTO 670 

660 LPRINT " "; 

670 NEXT I 

680 LPRINT " " 

690 NEXT D 

700 LPRINT TAB(8)0;TAB(26)MX/3;TAB(42)MX*(2/3);TAB(61)MX 

710 LPRINT " OUTPUT, SALES OR PRODUCTION" 

720 Q$=INKEY$ : IF Q$="" THEN 720 ELSE P$="N" : GOTO 540 
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PONY EXPRESS 

Finally 

The most complete mailing program 

ever designed, used for many years 
by large corporations and organizations 



Now Available for the Trs 80* 
Models I and III 



Following are some of the features of 

PONY EXPRESS 

• Unlimited amount of files 

• 1400 records on a Modellll 40 track 
disl<ette 

• Fast machine code sort 

• Records can be sorted by name, zip code, 
zip and name, zip and address 

• Records can be printed on 
labels one to five across 
132 character wide paper 
80 character wide paper 
or with Cheshire format 

• Print your own return address labels or 
any other one to five line message 

• Records can be selected by an unlimited 
amount of selection codes. 

• Automatic repeat routines for ease of 
entering records 

• Codes can be used instead of titles for 
greater efficiency during input 

• Unique correction and deletion routines 
for ease of updating files 

• Self-documenting and extensive docu- 
mentation so that anyone can learn how 
to use PONY EXPRESS in less than an 
hour 



Special Introductory Offer 

$99.00 

Call or Write to 




975 Forest Avenue 

Lakewood, New Jersey 08701 

(201)364-3005 

Master Charge and Visa accepted, 
add $2.50 Shipping and Handling. 
N.J. residents add 5% sales tax. 

'Trs 80 is a trademark of Tandy Corp. 
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SUMMARY 

Break-even analysis is a good preliminary analysis 
finanical decision making tool. Our program takes advantage 
of the simplicity of the technique and produces the 
additional graphics which makes break-even so powerful. 
The technique has limitations; however, as a first preliminary 
screening method, it can be an outstanding tool. 

The original version of this program was published in this 
magazine's March 1980 issue. It was very simple to use but 
could only handle two cases. 

Steven M. Zimmerman, Ph.D. 
College of Business 
University of South Alabama 
Mobile, Alabama 36688 

Leo M. Conrad 

Imagineering Concepts 

P.O. Box 9843 

Mobile, Alabama 36691-0843 ■ 

continued from page 14 

"powerful" and "user friendly.") 

The manual for GRAMMATIK is better than average. The 
general text and the explanations are thorough, detailed, 
and concise. Obviously the theories of GRAMMATIK have 
been applied, and the author knows the subject extremely 
well (English Composition), and how GRAMMATIK operates 
with its subject. This is eminently clear in the text — there are 
no spelling errors, and only one typographical error — a 
superfluous "the" that because of its position would not be 
caught by either GRAMMATIK or a spelling check program 
(which only proves that Homo sapiens is still needed). 

Production of the manual is by offset press from sharp 
printing, probably by an impact type printer. If not, then an 
excellent dot matrix printer has been used. There are 32 
pages of text, center stapled within a blue card stock paper 
cover; the outside size is 5 1/2 by 8 1/2 inches. For the 
amount of text, the production is adequate. Give this manual 
a "7." 

When the program was "test run" on some old articles of 
mine still on disk, I was embarrassed by some of the 
overworked, wordy, or trite phrases that I had used. 
Nevertheless, I had to agree with what GRAMATIK was 
saying, and vow to avoid these pitfalls in the future. 

This is one of the most interesting and useful programs 
that I have had the pleasure to review. All functions operated 
as stated with no problems, or even a hint of a problem. And 
no guessing was required about exactly what some of the 
directions implied. As I have mentioned in the above review, 
anyone involved with word processing in any way, whether 
writing manuals, letters, brochures, newscopy, reports, etc. 
is encouraged to get this exceptional program. Jhere are 
many lessons and reminders of English Composition to be 
learned from it — unless you are William Manchester, or 
someone as astute as he in the field of writing. 

GRAMMATIK Model I, III (min. 32k 1 Drive) — $59.00. 

Model II (64k 1 Drive) — $99.00. 

GP/M '" (2.2, 48k) — 8 in. single density 

: Aspen Sofware Company, Tijeras, NM 87059. ■ 



continued from page 22 

(Beware: some DOSs, such as NEWDOS/80, use another 
address for the DOS high memory pointer.) The printer 
driver simply intercepts data intended for the line printer 
and sends it to the UART. This program assumes a disk 
system and 48K RAM. We can change the driver address to 
7F78H for a 16K system or BF78H for 32K, and change the 
return to TRSDOS (402DH) to a return to BASIC "Ready" by 
changing THE ADDRESS 402DH TO 1A19H. 

SERIAL PRINTER PROGRAM 



00100 ; SERIAL PRINTER DRIVER PROGRAM 



00110 LPADR 
00120 MEMSIZ 
00130 TRSDOS 
00140 ; 
00150 MODEM 
00160 CONFIG 
00170 STATUS 
00180 DATA 
00190 ; 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 



4026H 
40B1H 
402DH 

232 
233 
234 
235 



; DRIVER ADDRESS 
;MEM SIZE POINTER 
; RETURN TO DOS 

;RS232 PORTS 



00210 SERIAL 

00220 

00230 

00240 

00250 

00260 

00270 



ORG 5200H 

LD HL, DRIVER 

LD (LPADR), HL 

LD (MEMSIZ), HL 

CALL RSINIT 

JP TRSDOS 

iCHANGE ABOVE TO 'JP 1A19H' FOR 



ORG 



0FF78H 



00280 ; DRIVER ENTERED WITH BYTE IN C 



00290 DRIVER 



CALL 

CP 

RET 

LD 

JR 



RSOUT 

13 

NZ 

C,10 

RSOUT 



SUBROUTINES 
INITIALIZE UART 



00310 
00320 
00330 
00340 
00350 
00360 
00370 RSINIT OUT 

LD 

OUT 

LD 
;EVEN PARITY 
00420 OUT 
00430 RET 

; TRANSMIT CHARACTER 



00390 



(MODEM), A 
A,77H 
(CONFIG), A 
A,0A4H 
7 BITS, 1 STOP 
(STATUS), A 



00450 RSOUT 



00470 



00510 



IN 
BIT 
JR 
^LD 
OUT, 
RET 
END 



A, (STATUS) 
6, A 

Z, RSOUT 
A,C 
(DATA), A 

SERIAL 



SET DRIVER ADDRESS 
save in deb 
SET MEMORY SIZE 
INITIALIZE RS232 
RETURN TO DOS 
NON-DISK BASIC 



SEND TO RS232 

CR? 

NO 

SEND LF 

RETURN FROM THERE 



RESET UART 
1200 BAUD 
SET BAUD 
CONFIG 
BIT 



CHECK STATUS 

READY? 

NO , 

GET CHAR IN A 

TRANSMIT IT 



You may be wondering why we had to locate this line 
printer driver at FF78H when it occupies less than 32 bytes. 
The reason is that TRSDOS destroys locations FF98-FFFF as it 
loads BASIC into memory. We could actually use those 
locations later, but then we would have to POKE the program 
into memory. This way we can simply type "SERIAL" under 
the DOS and forget about it, although we will also have to set 
memory size to 65400. ■ 
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continued from page 25 

Although it is possible to compute the length of a CP/M 
variable-record-length file (by converting physical lengths to 
logical lengths), it is generally easier to keep track of this 
manually). 

This problem regarding LOF if actually a bug in MBASIC. It 
is possible that it will be corrected in a future release. 

LEAVING SPACES IN PROGRAMS 

The newest version of MBASIC (release 5.21) permits the 
use of 5-letter variables. As a result, it is necessary to leave a 
space between every keyword in a BASIC program. For 
example, suppose you had to convert the following TRSDOS 
program: 

10 FORI=1T010 
20 PRINTTAB(I)I 
30 NEXTI 

An equivalent MBASIC 5.21 program would be: 

10 FOR I = 1 TO 10 
20 PRINT TAB (I) I 
30 NEXT I 

Adding spaces into a program is an ideal chore for a word 
processor. By using a global search and replace, you can, for 
instance, replace every occurence of 'PRINT' with "PRINT". 

(NOTE: When adding spaces into a program, it may 
sometimes occur that a line exceeds the maximum characters 
permissible for one line. In such a case, it is necessary to 
break up this line into two or more statements.) 

FIVE-LETTER VARIABLES 

Under TRSDOS, the variables TE and TEST represent the 
same variable, since the TRSDOS version of BASIC recognizes 
only the first two letters of a variable. CP/M MBASIC, 
however, recognizes the first 5 characters of a variable. 
(Actually, only version 5.21 or newer recognizes 5 characters). 

Thus, let's say you had the following TRSDOS program: 

10 RE-RE+1 
20 REL=RE-I-1 
30 RE=RE+1 

Essentially, it is necessary to utilize only the first two 
characters of your TRSDOS variable. If you use more than 
two under CP/M, the additional characters will be significant, 
and you will be referring to the wrong variable. 

This concludes this month's tips on program conversion. If 
you have a specific topic you would like to see discussed, or 
if you have successfully converted a program and would like 
to share your experiences with our readers, write and let me 
know. All correspondence is welcomed. Simply write to 
Richard Kaplan, c/o H & E Computronics. ■ 
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BYTEWRITER 

DAISY WHEEL PRINTER 



NEW I NOT REFURBISHED 

LETTER QUALITY PRINTER AND TYPEWRITER 
IN ONE PACKAGE 

ONLY 

$795 

plus shipping 

The BYTEWRITER is a new Olivetti Praxis electronic typewriter 

with a micro-processor controlled driver added internally. 

No software driver needed. 

Maybe we goofed by not charging more for a 
DAISY WHEEL PRINTER 

What's wrong with it? 

We guess everyone must be getting used to 
paying over $2000 for a new Daisy Wheel Printer 
and over $1500 for a refurbished Daisy Wheel 
Printer. Anything that costs less must be junk. 
Right? 

WRONG! 

The BYTEWRITER is not only cheaper it is better! 
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Following are some of the features of 

BYTEWRITER 

10, 12, or 15 characters per inch switch 
selectable 

Interchangeable daisy wheel - many differ- 
ent typestyles readily available 
Correctable Electronic Typewriter opera- 
tion with nothing to disconnect 
Correctable film or nylon cartridge ribbon 
Self test program built in 
Only 14 internal moving parts for incredible 
reliability, ease, efficiency and accuracy 
Two keyboard positions for standard Amer- 
ican type or special characters for foreign 
languages 



Centronics compatible parallel input operates with 
TRS-80, APPLE, IBM and many others 

Call or Write to 

mMfmmi 

975 Forest Avenue 

Lakewood, New Jersey 08701 

(201)364-3005 

Master Charge and Visa accepted, 
N.J. residents add 5% sales tax. 

'^•^•^'^*'^'^'^'^'^■'^■'^*'^'^'»■'^'^'^■^^^^^^.^^:^:^*^ 
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BEGINNER'S CORNER 



Spencer Koenig 
Let your Computer put its Ear to the Ground 

(Part 1 of 2) 



If you remember last time, our hero had finally managed 
to get his telecommunications system up and running. The 
problems were not insurmountable, and with patience, 
intelligence, and, of course, endurance, his TRS-80 became 
a terminal. Return with us now to those often trying times of 
yester(day)-year when the lowly TRS-80 becomes SMART 
TERMINAL! 

Hi! Welcome back to Beginner's Corner. In the last issue, I 
was talking about problems we as beginners often face, 
usually alone. The anecdote i told you revealed the problems 
I faced getting my system together for the purpose of 
telecommunications. It seems to me that telecommunications 
is likely to become an important subject in the future, and I 
have no doubt that, as equipment and facilities become 
cheaper and more reliable, you are going to see a profound 
change in your life as the result. 

I have been following this subject for quite some time, in 
this magazine and other periodicals as well. Recently I have 
noticed that local newspapers have written about these 
trends. I remember a recent mention of an apartment house 
that had a terminal as a standard equipment appliance. Now, 
with Ma Bell having become deregulated, there are some 
rumors about additional services becoming available. Readers 
Digest has also gotten into the telecommunications business 
by means of purchasing "The Source." All these events and 
items point to a substantial change about to occur, and you, 
as a home computerist, will benefit. 

The advantages, or at least the coming advantages, have 
been written about by many. Some say the future of the 
publishing business is entangled with telecommunications. If 
big business is looking toward this as an alternative toward 
"spreading the news," then what's in it for us? The 
possibilities have only begun to rise to the surface. Ideas 
such as library data bases, banking from home services, 
retrieval of information on any subject by calling up a central 
information number, etc. are appearing. The telephone 
company wants to put the white and yellow pages on dial up 
service. The list goes on. 

I am sure that several questions come to mind as you 
consider this growing oppertunity to "link up" with the 
outside world. How do you get started? What kinds of 
equipment are available or absolutely necessary? More 
important, once you have a system up, what do you do then? 
I'll review some of the information I spoke about last time 
and elaborate a bit more on what is available. 

The pieces of equipment required by TRS-80 users are: (1) 
A computer. (2) For the Model I, an expansion interface and 
RS-232-C board. (3) Enough memory for the software and 
perhaps room enough for any programs that you might copy 
over the phone, and (4) a modem of some type. The 
software required must be a smart terminal program. There 
are several on the market which are quite good and offer 
various degrees of sophistication. 



One of the necessary pieces of equipment is the modem. 
There a two kinds: the acoustic coupler modem, which is the 
cheaper of the two, and the direct connect modem, which is 
the more reliable of the two. 

The acoustic coupler modem uses the head piece of the 
telephone to transmit information on the lines. You must 
place your telephone receiver into the two rubber cups on 
the modem. You must be careful that the modem you 
choose will fit your phone, considering all the styles of 
phones around today. Acon-tic couplers cost around 
$100.00 and up. 

The direct connect modem doesn't use the head piece 
but allows for a modular jack to plug into it. The same kind of 
modular jack that the phone company uses is required. If you 
do not have the modular jacks on your phones, the 
telephone company will change them for you for free when 
they make a service call. Direct connect modems cost about 
$200.00 and up. 

Once you have all the necessary items and the software 
required to make it work, what then? This leads me to the 
next step in our investigation of "where does a beginner go 
to get some information around here." 

Lets suppose you're like me and you've got your system 
working. What are you going to do now? Who are you going 
to call, and what do you expect to happen? That is what this 
installment is about. In the second half of this series I will 
have a listing of several hundred names and numbers that 
you can call, all across the country (provided that you can 
afford it). 

The term for these local networks are "bulletin boards." 
The purposes of these bulletin boards vary. The types of 
systems that make them work also vary, as do the formats 
that they present to you when you log on to them. Logon is 
computerese for hook-up-to. 

Here's the way it works. You dial the number of the board 
you want to connect with and listen for the carrier signal. This 
signal is a high pitched tone. When you hear this tone, you 
either place your phone in your modem, or your modem will 
automatically respond (determined by the kind of modem 
and quality of your device). Hit return (ENTER) a few times 
until the system (the board) responds with a message similar 
to examples la and lb. 

Once the system responds you can get a listing which 
looks something like example 2 and continues from there. 
Many boards offer a wide range of services varying from 
selling of programs to the "buying and selling" of used 
hardware. I have found it helpful in getting contacts for clubs 
in my area and help for all kinds of other problems related to 
my computer. You can also meet quite a few nice people that 
way too. 

The listings in this article were downloaded (copied from) 
from the Bryan Boyle Bronx Bulletin Board (212-933-9459). 
Much of the information and programs that he has available 
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were retrieved fom other boards. That's how the electronic 
grapevine worl<s. 

Signing on to the system is the first step in getting on to it. 
Some systems have an auto logon feature that saves some 
time and effort for the user. Your software must have this 
capability to allow you to use this feature. What it does is to 
send automatically the basic information about you, such as 
your name and location, as well as your account number (if 
required), etc. 

Once you are connected to the system and the carrier 
signal is established you are usually asked about the type of 
machine you have. For example IF YOU ARE USING A TRS- 
80 HIT ENTER, ELSE HIT ANY OTHER KEY . If your are not 
using a TRS-80 then you will be asked some specific 
questions about standards your system uses to access other 
bulletin boards. 



WELCOME TO 
Bryan Boyle's Bronx Bulletin Board 

Message-80 BBS System 
300/1200 Baud 

Online 6AM to 1AM 
7 Days a Week 

Special section of Broadcast Engineering programs and other 
media oriented information in the download section. This 
BBS system is for public use and all information contained 
herein is public domain. 



CHECKING FOR AUTO -LOGON. 



AUTO LOGON ENGAGED 

A C0NNECTI0N-80 SYSTEM 300/1200 BAUD 

ONLINE SINCE 15 NOVEMBER 1980 

WELCOME TO BRYAN BOYLE'S BRONX BULLETIN BOARD 

A C0NNECTI0N-80 SYSTEM 300/1200 BAUD 

ONLINE SINCE 15 NOVEMBER 1980 

PLEASE HIT <ENTER> IF YOU ARE A TRS-80 

ANY OTHER KEY IF YOU ARE NOT > 

Hit "X' to skip opening billboard --> 
Hit "S' to Stop, "P' to Pause 

Example 1A: Sign-on message from 

Bryan Boyle's Bronx Bulletin Board 



Your last name is? KOENIG 
Your first name is? SPENCER 

Searching user files 

Where are you calling from? QUEENS 

Name - SPENCER KOENIG 
Calling from - QUEENS 
Isth-is correct SPENCER? Yes 
You are caller number 19702 

System Printer off line. 
Leave messages for SYSOP on BBS 

Hit <ENTER> to continue -> ? 

Example IB: Dialogue from a session with a Bulletin Board. 

continued on page 53 



5,000,000/20,000,000 BYTES 

From Micro Mainframe 

10 MEGABYTE HARD DISK DRIVES, with REMOVABLE Cartridges, For Models I / II /III ($5,995/$8990). 

SERIES III H. Model III with 5,000,000 byte hard disk drive(s) ($6,995/$9,095) or add to your Model I /III ($3,795). 

SERIES III F. Model III with a controller board (available separately) and operating system which allows you to start 
with, or move up to, dual-headed or eight-inch floppys. 

From AT-80 

GL80 — $149 — Radio Shack General Ledger 1.1 with over 30 added features; including a general ledger, classified bal- 
ance sheet, check register and options to use an "automatic" account number or re-do an entry or document. 
AR80 — $199 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts. 
GL/IWl — $49 — Convert your General Ledger 1.1 to GL80. Typical user comment: "Takes half as much time." 
AR/Ml — $49 — Convert your Accounts Receivable 1.2 to AR88. Typical user comment: "Saves hours." 

GL/IKI1 and AR/Ml require proof of purchase of the original programs, or, send a disk copy of the original programs for 
conversion at no additional charge. Documentation (apply to purchase) — $5.00 each. 

FTDEM080 — $12 — Displays and Executes the NEWDOS/80 Appendix A programs/ keyboard entries. Requires 32K. 

NEWDOS/80 - $135 LDOS - $135 EPSON MX-70/80/FT - $Call 
AT-80 3827 Dismount Dallas, Texas 75211 (214) 339-0498 
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MX-80/100 OWNERS 

PRINTER STANDS 

End the mess of paper from your desktop 

printer. Paper is fed from under tiie printer 

and allowed to stack neatly behind your 

machine. IVIade from the highest quality 

clear plexiglass, this is a handsome addi- 

^^^^^goFT ^^^^^_ tion to home or office. Available in two sizes 

1^^ .^^^Ifj^^^^ - Regular for printers such as MX-80, 

\^tS^^^m MicroiineSO, etc. or Large for printers such 

'^^^^^H as IVIX-IOO, DataRoyal, DWII etc. Available 

'^ with extra shelf for quick and easy forms 

change. 

Regular (300010) 29.95 

Regular w/shelf (300011) 44.95 

Large (300020) .34.95 

Large w/shelf (300021 ) 49.95 




MX-80 RELOADS 

Reload your own MX-SO & MX-100 Ribbon Cartridges, and save money. These endless loop Silver Dollar Ribbon packs load into your worn cartridge 
easily, saving you money. Now available in Blue and Red. 



Black (500000) 
Red (500010).. 
Blue (500020) , 



.$3.95 83. 
. .4.95ea. 
. .4.95ea. 



Black (500001) 
Red (500011).. 
Blue (500021) . 



. $39.50 doz. 

.. 49.95 doz. 

.49.95 doz. 



MX-80 RIBBON CARTRIDGE 

Same as original cartridge, with the additional feature of "IVIobis" loop which turns the ribbon 180° after each run through the cartridge extending rib- 
bon life. As you know IVIX-80 cartridges cost $15.00 from most sources, but ttiese are only $10.95 each or save even more by buying 3 at $29.95. 



1 cartridge (500050) $10.95 



3 pack (500051) $29.95 



NEW ^ l/l^e noyN catty the DIGIAC MULTIUSER COMPUTER. Call fot details on 
MULTIUSER PtocessingH 




1 71 Hawkins Rood 
Centereoch, New York 1 1 720 




(516) 981-6566 (Voice) 
(516) 566-5636 (Doto) 
MNET-70331, 105 



Dealer Inquiries Welcome 

AddS2.00S&H 
NYS res. odd oppr. rox 



UNITERM 
'The Universal Terminal Program' 

The FIRST and ONLY terminal program for both the Model I and 
Model III TRS-80 computers. Written by Pete Roberts, this program 
will soon become the standard of terminal software. Unique features 
includes a Handsome binder with over 75 pages of instructions and 
examples. Free upgrade policy using local Bulletin Boards and 
MicroNET. Expanded functions such as 'Type to buffer', 'Display 
Buffer', Define Auto logon, polling, signon, and connect messages! 
Requires 32K disk system. Only $79.95 

ST80III, OMNITERM, SMART80, SMARTIII owners!!! Upgrade to 
'UNITERM'! Send your ORIGINAL program disl< and receive 
'UNITERM' for only $29.95!! 

CONNECTION-80 BBS 

Run your own Computer Bulletin Board. This software pacl<age when 
combined with your Model I or Model III TRS-80 and an Auto Answer 
Modem will convert your computer into a mini-times share system. 
Functions include message leaving, both public and private, 
message retrieving, Bulletins, Downloading, merchandise, product 
ordering, chat, etc. This is a full feature system, and well known for 
excellence among modem users. Only $199.95 

NEWDOS/80 OPERATING SYSTEM 

The Hottest Disk Operating System for the TRS-80 Model I and III. Ver- 
sion 2.0 with full single and double density support, allows the use of 
and combination of disk drives types and densities. Full Double density 
support when used with a Doubler. On the Model I, you can read and 
write Model III compatible data disks. On the Model III, you can write 
Model I single or double density data disks for use on the Model I. In- 
cludes: Expanded directories, dynamic basic merge and delete, selective 
variable clearing, enhanced basic editing. Enhanced chaining functions, 
Superzap utility. Disk enhanced editor assembler and disassembler, and 
much more. Special Price, $139.95 

M-ZAL 

This is the most powerful Editor Assembler for the TRS-80 ever writ- 
ten. Features a full screen editor, a menu driven asembler, and an 
interactive linker which allows the linking of /CMD and /RLD files. 
Files can be loaded to Disk or Tape! Assembly Language programs 
like Dick Balcom, and Pete Robert claim that this is the best Editor 
Assembler on the market! Special Price, $129.95 

THE COPYRIGHT KIT 

A self-instruction booklet on copyrighting the computer software you 
write. Includes step by step instructions, sample fornis, as well as 
discussions of copyrights, patents and trade secrets, your rights 
secured by copyrights, legal remedies upon infringements, material 
not copyrightable and MUCH MORE! Written by Attorneys. Published 
by National Attorneys Publications and distributed exclusively 
through B.T. Enterprises. IF YOU EVER WROTE A COMPUTER PRO- 
GRAM, YOU NEED THIS BOOK! $12.95 

COPY III 

This Model III Utility, written by Dick Balcom, allows you to load 
system tapes into your computer at either 500 or 1 500 Baud and then 
copy them onto a new tape at either 500 or 1500 Baud. Includes 10 
page instruction manual, $9.95 

CASOP 

The CASOP utility by Paul Spoltore allows you to copy system tapes, 
find load locations, check for hidden messages, modify program 
blocks, relocate program blocks, and merge two tape programs 
together. A sort of 'SUPERZAP' for tape users, $24.95. 



MODEL I DISK DRIVE CASES 

Clear Cases for your model I disk drives, complete with power supply 
for 5-1/4 inch disk drives. 

Single Drive Case $79.95 

Dual Drive Case $109.95 

Triple Drive Case $139.95 

Quad Drive Case $169.95 

Smoked Plexiglass Cases, Add 5.00/per drive 

LYNX MODEMS 

The finest Auto Answer/Dial Modem on the market! This is a direct 
connect modem for your model I or III. Does not require an RS232-C 
interface in your computer! Season Special, ^99.05. $249.95 

AMBER EASE 

Amber filter for your computer. Amber has been shown to be the 
easiest on the eyes. Easy to install. (Shown on computer above.) 
Season Special, All TRS-80 Models, $19.95 

TIC-TOC-80 MICROCLOCK 

A microclock for your TRS-80 Model I. Gives your computer the cor- 
rect time and date on powerup. Clock is maintained on a lithium bat- 
tery for long life. Plugs onto the I/O Buss of the TRS-80 Model I and 
does not require any modifications for most computers. Complete 
with extensive documentation and a disk with utilities. SPECIAL 
NOW AVAILABLE IN KIT FORM! 

Complete assembled and tested $99.95 

Kit with P/C board, parts and instructions $59.95 

Kit with P/C board, parts list and instructions $19.95 

OTHER MYSTERIES 

We carry the full line of IJG 'Other Mysteries' books at discount 
prices. These books are a must for computer users. 

TRS— 80 Disk and Other Mysteries ^2.50 $19.95 

Basic Decoded and Other Mysteries $26.95 $26.95 

Custom TRS-80 and Other Mysteries $2^5 $26.95 

Basic Faster & Better $29.95 $26.95 

DISK BULK ERASER 

Use this handy, portable, non-electric disk bulk eraser anywhere you 
need it. No need for power, as this unit needs no electricity to func- 
tion. No user should be without one. Available for the amazing low 
price of $4.95. 

DISK STORAGE BINDER 

This Is a handy 3 ring binder that folds flat for easy use. Complete 
with 10 plastic pages to store your disks. (Each page holds 2 disks.) 
Makes transporting your disks as easy as picking up a book! 

Binder and Pages (Limited time special) $9.95 

Extra disk pages alone, (each) $ .50 

MODEL III MEIVIORY KIT 

This kit is all that you need for easy installation of an additional 16K or 
32K in your Model III. Complete with 8 page instruction book that has 
been hailed as ' ... The best instructions we have ever seen . . . ' . 
High quality 150ns memory chips make this the best kit available. 
16K . . . $44.95 32K . . . $79.95 
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This month we are going to be a little more ambitious than 
usual with this column. Greg Zeigler, one of our local coin 
experts, wrote a program for a disk-based system to keep an 
inventory of his coins. If you have any things to inventory, you 
might like to adapt his program to your own use. The program 
makes use of sub-sectored random files, and includes a sort 
routine which sorts from bottom to top, so that newly added 
items (bottom) will sort in one pass. One of the unique features 
of th ? program is the use of a count-byte at the end of the last 
sector in each file, which tells how many records there are in 
that sector. 

We have arranged the random file handling routines in the 
form of separate subroutines which are called in sequence to 
do their various tasks. If you are a novice to random files, you 
might like to use them in this form. We keep thinking this may 
lead to a universal set of subroutines which will handle the 
random files for any program. 

One common technique which is not included in this 
program is the conversion of numerical data to string for 
storage, and its subsequent recovery. All the data in this pro- 
gram are handled in string form. Coin data are input as called 
for, sorted in order by date, and stored in separate files by 
coin denomination. Every time the program is run, all data are 
disijjayed, and deletions and additions may be made. 

m ' COINS 

llja CLS : CLEAR mW : DEFSTR C 

12)3 DIM CA(1|3J3),CT(1)3|3),CG(1|30),CS(1|30),CP(1|3|3),CD(100) 

13)3 PRINT TAB(26) "INVENTORY" : PRINT 

140 PRINT " (TO ABORT PROGRAM AT ANY TIME, ENTER 9 FOR COIN 

DATE)" 

15)3 DATA CENTS, NICKELS, DIMES, QUARTERS, HALVES, DOLLARS 

16)3 DATA SETS, MISC, DONE 

17)3 READ CF : IF CF="DONE" THEN END 

18)3 PRINT TAB(31-LEN(CF)/2)CF 'CENTERS THE FILENAME 

19)3 GOSUB 54)3 , 'OPEN AND MEASURE FILE 

2)3)3 IF N=)3 THEN R=|3 : GOTO 310 'N=NUMBER OF RECORDS 

210 FOR R=l TO N 'R=CURRENT RECORD NUMBER 

220 GOSUB 640 'GET RECORDS 

230 NEXT R 

240 R=R-1 'CORRECT THE COUNTER 

250 GOSUB 700 'DISPLAY RECORDS 

260 ' 

DELETE ROUTINE 
270 L=0 : INPUT " LINE NUMBER TO DELETE (ENTER=SKIP)";L 
280 IF L=0 THEN 310 ' 'EXIT THE ROUTINE 
290 CA(L)="0000" 'ZERO DATE=DELETED RECORD 

300 GOTO 270 
310 ' 

ADD ROUTINE 
320 Q$="" : INPUT " DATE OF COIN TO ADD TO FILE 
(ENTER=SKIP,9=QUIT)";Q$ 

330 IF Q$="" THEN 420 'EXIT THE ROUTINE 
340 IF Q$="9" THEN CLOSE : END 
350 R=R+1 : N=N+1 : CA(R)=Q$ 
360 INPUT " DESCRIPTION" ;CT(R) 
370 INPUT " GRADE" ;CG(R) 



380 INPUT " PURCHASED FROM";CS(R) 

390 INPUT " PURCHASE PRICE" ;CP(R) 

400 INPUT "PURCHASED(060182)";CD{R) 

410 GOTO 310 

420 GOSUB 840 'SORT 

430 GOSUB 1230 'CLOSE 

440 GOTO 170 

450 END 

460 '= = = = = = = = = = = = = = = = = 



470 ' 

DEFINITIONS SUBROUTINE 
480 RS=4 'RECORDS PER SECTOR 

490 RB%=255/RS 'BYTES PER RECORD 

500 S=INT((R+RS-1)/RS) 'SECTOR NUMBER 
510 SK%=R-RS*(S-1)-1 'SKIP HOW MANY RECORDS 
520 FIELD 1, m%*Sn AS XS$,6 AS CA,18 AS CT,5 AS CG, 
22 AS CS,6 AS CP,6 AS CD 
530 RETURN 
540 ' 

OPEN SUBROUTINE 
550 OPEN "R",1,CF 
560 GOSUB 470 
570 SF=L0F(1) 

580 IF SF=0.IHEN N=0 : GOTO 630 
590 FIELD 1, 255 AS XS$ 
600 GET 1,SF 



RANDOM FILE, BUFFER #1, FILENAME 
DEFINE PARAMETERS 
NUMBER OF SECTORS IN FILE 
'VACANT FILE 
1 AS RL$ 

'LAST SECTOR 



610 RL=VAL(RL$) 
620 N=4*(SF-1)+RL 
630 RETURN 
640 ' 

GET SUBROUTINE 
650 IF R=0 THEN 690 
660 GOSUB 470 
670 GET 1,S 
680 CA(R)=CA 
CD(R)=CD 
690 RETURN 
700 ' 



'# OF RECORDS IN LAST SECTOR 
'# OF RECORDS IN FILE 



CT(R)=CT : CG(R)=CG : CS(R)=CS : CP(R)=CP 



710 IF 
720 FOR R=l TO N 
730 PRINT USING"**! 
740 PRINT USING"% 
750 PRINT USING"^ 
760 PRINT USING"% 
770 PRINT USING"% 
780 PRINT USING" 



DISPLAY SUBROUTINE 
=0 THEN 830 'VACANT FILE 

'RECORD NUMBER 

;R; 

% ";CA(R); 

% ";CT(R); 
I ";CG(R); 

% ";LEFT$(CS(R),10); 

790 PRINT LEF,T$(CD(R),2)"/"MID$(CD(R),3,2)"/"RIGHT$(CD(R),2) 

800 IF R/12=INT(R/12) THEN INPUT" (ENTER) TO CONTINUE" ;Q$ : CLS 

810 NEXT R 

820 R=R-1 'CORRECT THE COUNTER 

830 RETURN 

840 ' 

SORT SUBROUTINE 
850 CLS : PRINT TAB(27) "SORTING" 
860 PRINT TAB(31-LEN(CF)/2)CF 'CENTER THE FILENAME 
870 IF R < 2 THEN 1020 'NO SORTING NEEDED 
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MOD I/III SPEED MOD 



The only resource you can't replace is TIME. PLUG IN A SPRINTER (by Holmes 
Engineering) and 

TRIPLE THE SPEED of your TRS-80 MODEL I OR MODEL 3. 

YES! A NEW Z-80B MICROPROCESSOR IS INCLUDED! 

YES! Special circuitry handles your slower memory chips. 

YES! Automatic switch down to "normal" for disk I/O. 

YES! IT IS ABSOLUTELY FANTASTIC and only 99.50 COMPLETE!! 

Only the cream of the crop - - for you, from HACKS. 



SCRIPLUS v3.0 (by ROSTEK) is the software "patch" for SCRIPSIT (c) that lets you output 
control codes to CHANGE TYPE STYLES, UNDERLINE, etc. from wiUiin your text files. Wrinen 
especially for the MX-80 but works fine with most any printer that accepts control codes. Makes your 
printer do all the tricks it was designed for. +DIR, KILL, MERGE, and MORE, WHILE IN 
SCRIPSIT (c). 
How many times have you wished? Here 'tiz ON DISK 39.95 



Need a SUPERFINE lowercase CHARACTER GENERATOR for your MOD I' KSG 
Technology builds 'em, and we've got one just for you. Beautiful lowercase -FULL DECENDERS - 
Allofthe8raphics,ofcourse.INCLUDEStheSPECIALGRAPHICSforCHRS(0)thruCHR$(31) 
omitted in the later Radio Shack lower case chips. Ask for the CGA-2. You'll love it! Only 29.95 



Did you ever bomb a disk? SUPER UTILITY (by Kim Walt) WILL AUTOMATICALLY 
RECOVER BOOT SECTIONS, GAT TABLES, READ AND COPY PROTECTED MEDIA, 
TRANSFER FROM ONE DOS TO ANOTHER, SINGLE OR DOUBLE DENSITY, andon, and 
on, and on ... . You just wouldn't believe . . . Includes a hundred and some odd vital functions. The 
BEST (no doubt!) and very, very highly recommended for ANYONE that uses a TRS-80 MOD I or 
MOD 3 with any kind of DISK and any kind of DOS. You just got to use it to realize what you've got 
here! The name "SUPER UTILITY" is a gross under-sutement. One use can easily pay for the 
program. 48K required. Specify 35tk. 40tk or 80 tk media for your Mod 1 or Mod 3. Absolutely 
professional! You need this! Don't get caught widiout it. 74.95 



ALL HARDWARE Modcl I Lowercasc 



DUALCASE 

UPPER/lowercase, full time 
from power-up; NO software; 
Standard typewriter keyboard 
operation (shift to UPPER- 
CASE); Control characters can 
be displayed; 1 28 Total char- 
acter set plus full graphics. 

ELECTRONIC SHIFT-LOCK 

No extra keys or switches. Sim- 
ply tap either shift key, UPPER- 
CASE lock, normal shift un- 
locks. 

DE-B-B-BOUNCE At no extra cost 
(At your option) 

BLOCK CURSOR If you like (No chg) 

SWITCHABLE from key board 




"THE PATCH" is covered with a 
one year limited wairantv on materi- 
als and worltmanship. (Does void 
Radio Sliacli's 90 day warranty.) 



■THE PATCH" 
CECDAT,INC. 



is a trademarit of 



"THE PATCH" is compatible with 
any word processor, any DOS and also 
other languages which use ROM sub- 
routines. Assembled and tested...$1 27.00 

"THE PATCH" unit plugs into the 
ROM sockets (does not replace existing 
ROM). Lowercase does require installa- 
tion of the extra video ROM (supplied 
with "THE PATCH"). 

Detailed instructions guide even the 
most inexperienced owner to complete 
installation in about 30 minutes. 
WHEN ORDERING SPECIFY: 
"Mem Size" D "Memory Size" Q 
And your choice of any/all options. 

To order, send payment plus $2.00 
shipping and handling. Texas residents 
add 5% sales tax/ 



WHEN ORDERING SPECIFY: 



"Mem 



n "Memory Size" O 
Any your'choice of any/all options 
To order, send payment plus $2.00 shipping 
and handling. Texas residents add 5% sales 



HACKS 



P.O. BOX 12963 
Houston, Texas 77017 



National Distributors 



FOR Y=l TO (R-1) 'NUMBER OF TIMES 

SW=)3 'SWITCH OFF 

FOR Z=(R-1) TO Y STEP -1 'SCAN THE LIST, BACKWARDS 



910 IF CA(Z) ■ 


= CA(Z+1) THEN 990 'IN THE CORRECT ORDER 


920 CZ=CA(Z) 


CA(Z)=CA(Z+1) 


CA(Z+1)=CZ 'EXCHANGE THEM 


930 CZ=CT(Z) 


CT(Z)=CT(Z+1) 


CT(Z+1)=CZ 


940 CZ=CG(Z) 


CG(Z)=CG(Z+1) 


CG(Z+1)=CZ 


950 CZ=CS(Z) 


CS(Z)=CS(Z+1) 


CS(Z+1)=CZ 


960 CZ=CP(Z) 


CP{Z)=CP(Z+1) 


CP(Z+1)=CZ 


970 CZ=CD(Z) 


CD(Z)=CD(Z+1) 


CD(Z+1)=CZ 


980 SW=1 


'SWITCH ON - STILL SORTING 


990 NEXT Z 


'NEXT POSITION UP THE LIST 


1000 IF SW=0 THEN 1020 


'FINISHED IF SWITCH IS OFF 


1010 NEXT Y 


'NEXT TIME THRU THE LIST 


1020 CLOSE 




1030 CLS 




1040 PRINT "WRITING THE FILE 


DON'T INTERRUPT!" 


1050 KILL CF 




1060 IF N=0 THEN PRINT "NOTHIf 


G IN THE "CF" FILE" : GOTO 1060 


1070 OPEN "R",1,CF 




1080 R=0 


'RESET RECORD NUMBER 


1090 FOR Q=l TO N 




1100 IF VAL(CA(Q))=0 THEN 113)! 


'0000 DATE = DELETED RECORD 


1110 R=R+1 


'RECORD NUMBER 


1120 GOSUB 1160 


'PUT RECORD INTO FILE 


1130 NEXT Q 


'FIND ANOTHER RECORD 


1140 N=R 


'CORRECT THE COUNTER 


1150 RETURN 




1160 ' 







PUT SUBROUTINE 

'SECTOR, SKIP, FIELD 
'ALWAYS GET BEFORE PUTTING 
LSET CT=CT(Q) : LSET CG=CG(Q) 



LSET CP=CP(Q) : LSET CD=CD(Q) 



1170 GOSUB 470 

1180 GET 1,S 

1190 LSET CA=CA(Q) 

1200 LSET CS=CS(Q) 

1210 PUT 1,S 

1220 RETURN 

1230 • 

CLOSE SUBROUTINE 

1240 SF=L0F(1) 'NUMBER OF SECTORS IN FILE 

1250 IF SF=0 THEN 1320 

1260 RL=N-4*(INT(N/RS)) 'RECORDS IN LAST SECTOR 

1270 IF RL=0 THEN'rL=4 '(1-4, NOT 0-3) 

1280 FIELD 1,255 AS XS$, 1 AS RL$ 

1290 GET 1,SF 



1300 LSET RL$=CHR$(48-^RL) 

1310 PUT 1,SF 

1320 CLOSE 

1330 RETURN 

1340 ' 

1350 ' GREG ZEIGLER 

1360 ' GORDON SPEER 

1370 ' STERLING, IL 

Gordon Speer 

3304 Woodland Road 

Sterling IL 61081 ■ 



'THE LAST BYTE IN THE LAST 
'SECTOR IS THE NUMBER OF 
'RECORDS IN THE SECTOR 
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COLOR COMPUTER CORNER 

Joseph Rosenman 

This Month: TALKING TO MODEL ONES, 
TAKING THE BUS, AND COMMUNICATING 



I have been writing for Computronics for well over a year 
now and have received many letters from our readers, on 
many different topics. Although I don't usually have the time 
to answer all the letters I receive, I want all of our readers to 
know that I read and value their suggestions and comments. 
Your suggestions often influence topics that I choose to write 
about, and help me to determine what subjects require 
"extra" attention. Please keep the letters coming, and a 
heartfelt thank you! 

Recently, I have been thinking about the way I have 
criticized Radio Shack. Don't misunderstand me — I meant 
what I said! At the same time. Radio Shack has been 
producing a small but steady flow of software for the Color 
Computer. While some of the programs "don't quite make 
it," others are very useful and of high quality. Therefore, I 
expect to see a run on "Radio Shack Rom Packs for the Color 
Computer" reviews in the near future. If any one from Tandy 
Towers is watching (reading?), take note: we want our Color 
Computers to be supported! 

This month, I had planned to write about a special topic. 
Unfortunately, my Color Computer had other ideas. My 
home computer system includes a fully expanded Model 1 
and a 1 6K Extended Basic Color Computer. Since my printer 
uses the standard parallel interface, it can only be connected 
to my Model 1. I have been thinking of purchasing a serial to 
parallel interface for my Color Computer, to allow my printer 
to be used with both microcomputers, but then, an idea 
occured to me: since the Color Computer uses a serial port, I 
should be able to send the DATA from the Color Computer 
into the RS-232-C interface on my Model 1. A quick check 
through the Color Computer technical reference manual 
indicated that it should be no problem at all. So I bought a 4 
pin DIN patch cord from Radio Shack and a female DB-25 
connector from a local electronics supply store. I cut the DIN 
:ord in two, stripped the wires, and soldered them to the 
38-25. Unfortunately, I couldn't get the Color Computer to 
'do its thing" with the LLIST command. And what's more, 
'm not at all sure why. I will continue to research this 
Droblem and will publish the explanation once I've found it. 
f I can get BASIC to LLIST from the Color Computer to the 
viodel 1 , the next step would be to use the disk storage of 
he Model 1 to save Color Computer programs and to re- 
oad them into the Color Computer. 

What is this business of RS-232-C communication 
myway? Communication is a major topic in computer 
)perations, and is becoming even more important as new 
echnologies (and computer systems) emerge. If you want, 
'ou could conceive ofa computer as a big "black box". It has 
I screen, so that you can see what it is doing. It has a 
:eyboard, so that you can tell it what to do. It even has a 
)rinter, to keep a record of the "answers". It has a cassette or 
lisk, to save your programs or data. What goes on inside this 



"black box" is "not my problem". Somehow, the computer 
manages to get whatever information is relevant to the 
screen, from the keyboard, to the disk, or whatever. How 
does it do it inside the computer (inside the "black box")? 
Well, that's what all the wires are for, right? 

Actually, that is right. Computers are usually put together 
in one of two ways: on a general purpose Bus or directly on 
circuit boards. The TRS-80 computers all use the second 
approach. A (generally large) board is designed to contain all 
of the necessary parts to form a working microcomputer. The 
Model 1 is contained on two boards (one in the keyboard, 
the other in the Expansion Interface). If you want a computer 
with only "half" of the potential features, you can use a 
Model 1 without the Expansion Interface. Both the Color 
Computer and the Model 3 use a single board. (I'm not sure 
about the Model 2, although I suspect it uses a Bus as 
described below.) All of the necessary connections are on 
the board itself, or are "jumpered" to and from the second 
board. 

What about the Bus? (We missed it again!) Many other 
microcomputers use something known as a "Bus structure". 
The Bus is really just a collection of wires and slots that 
conform to a uniform pattern. In other words, a specific Bus 
might be designed to contain (say) 106 different connections. 
Wire 1 might be the ground, wire 2 might be +5 volts. Wires 
10-17 might be the 8 bits of the DATA BYTE. Wires 20-35 
might be the 1 6 bits of the ADDRESS, and so on. Each wire is 
designated to have a specific use. The Bus will then be in a 
box (often called a "motherboard") that has several "slots" 
where computer boards can be "plugged in". Each slot will 
use the same pattern of wire functions, and each board will 
be connected to each other via the "common Bus". The Bus 
will (most likely) be connected to a power supply. When I 
say connected, I mean that the appropriate wires (Ground, - 
12 volts, -1-5 volts, -1-12 volts, and whatever else is needed) 
that are used to supply power to the various computer 
boards, are "tied into" the bus and are available to all the 
boards. 

So, we have a Bus. (Only computer users can take this Bus 
to work!) What makes this Bus different from all other Buses? 
Actually, there are several different Bus systems around. The 
two most important by far, are the S-100 Bus and the Multi- 
Bus. In general, Multi-Bus is used in higher priced business 
systems, and the S-100 Bus is used in the more moderatly 
priced personal systems. The two Bus structures ARE NOT at 
all compatible, even though they both do similar things. 
Now, we just need something to plug into our Bus. 

One thing that we will want will be a microcomputer card. 
This card will contain the actual CPU chip(s), along with 
certain "support" circuitry. Another thing we will want would 
be RAM card(s). In the "old days," each card would contain 
4K of RAM. These days, 64K RAM cards are becoming 
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^€OLOR GOfflPUTEl 

COMPGVOICE TRS-80 MADNESS G THE JHIF?^ 

Give your computer a -voice of its own - build MINOTAtJR ^^ ' 

speech into your BASIC programs. This machine -ru u » ^ . ■■ li r .l ■ ^ ^_ 

, ■ . r ,-i_ 'he best adventure game available for the cobr ■i.JHIk. U^ m- 

language program is a must for your ibrary -no * /-, -i^rt ^ . r, ■ W ^^^"^kv^MU* *iT 

, ^ Af »■ J -. ^ ^ ^ nt: computer. Over 200 rooms. 6 creatures, 8 maqic Jf 1 ^^Kt^'^I 

hardware modification needed. $44.95 n , j r . ,., ■ ■ . ■ /f 1„ li 

spells, loads of treasures, wnlfen in machine /■ j* * ^Hli 1 

" FXTFMD MF.MORY language, extended Basic not required. $19.95 /I W»lH*'*fcv- "*•'*''. -^ 

RAMCHARGER ^'^'^'^ '^^ ^" ^^^ 

32K UPGRADE iE^SHrir. TANGaAEE games ^^ (WK f/^C'^ 

• n^slltrCr '''"''"" .COSMIC SUPER BOWL $14.95 /?C^ M It^^ *" "^ 

• S7QQ'i Similar to hand held football games / ^iTw^ l/Jkii*' V,. 

Color Invaders 'packet man $21.95 j^pf.^r 

n r rifft^^ — ' ~ Gobble your way through the maze while jC^fu, |S\ 

"ffjC^ * — ^^aiai^p- ^ _ avoiding the munchkins. i, Jftv. ^1 

Space War ^^^^'^-^cso^P' . croid ^12.95 ^V/^^T^s, ^IL ."'^ ^'>i 

S^''^'*^ Eliza type attificial intelligence game. T j J( ^ luk ^ MlSHii^^^BKi/ j I 

• TTie Best Games Available THE FACTS . SOaNDSOORCE 

store musrc or voice from a cassette tape in the 

• High Resolution Graphics '*■' '^^'- ^ complete description of computer and display it on the TV screen. . |^g_. . . »^> I 
_. J. the "guts" of the Color Computer. Shorten it. lengthen it. modify it and replay it ' ' ^ ' «zii. I 

• raSt, Machine Language specs on all the ICs, complete through the TV's sound system. Build and test 

• Ext Basic Not Reauired schematics, theory of operation your own sounds for games. No hardware mods/ »■ .^.^^^^^^^^^ u^ 

" and programmingexa/Tiples. needed. V^ • "^99^^^^^^^^ 

• $21.95 each, cassette 5,^0= /mi ITT CO S24.95 

.$25 95 each disk ''''' UTILITIES SPECTRAL 

EXTENDED BASIC GAMES _, • EDITOR/ ASSEMBLER $34.95 * CCnri A TCC I 

• LOTHAR'S LABYRINTH) Ss^ * ^^^^^ MONITOR 1 9.95 ADDUl^l A I CD 

Word Search Puzzle \/ • EPROM PROGRAMMER 89.95 143 HARVARD AVE. 

• BATTLEFLEET ^ ^ {Pragram your own ROMs for the ROM-PAC port) Tacoma, Washington 98466 
Battleship Search Game (one or * ^^^ mod °ii^Vapes in'to UnV colorVompul- ^ WRITE FOR COMPLETE CATALOG 

two players) add 3% for shipping $1.00 minimum I 

• <?PArF TRAnFPt; • DISASSEMBLER by Korenthal .. . 14.95 Allow 2.3 wl<s for delivery I 
" SKAI^n. I KAUtKi Written in BASIC - generate source and object code aeiivery ■ 

Galactic trading game for the facts. (206)565-8483 I 

^14.95/ea. DEALER INQUIRIES INVITED viSA OR MASTERCARD ACCEPTED 




commonplace. The technology of the IC (Integerated Circuit 
chip) has now progressed to the point where a 64K byte chip 
will be commercially available in the near future. This means 
that a single board with 16 RAM chips could contain one 
Megabyte of memory! Other boards would include a general 
purpose I/O board, Video generation boards, Disk Controller 
boards, and MANY other special purpose boards. If you 
wanted to expand your system, or add a new feature, just 
plug in the desired board. 

So why didn't Radio Shack make the TRS-80s according to 
a standard Bus? They had several excellent reasons, some 
good and some not so good. The best reason they had was 
cost Providing a general purpose Bus based microcomputer 
does not come cheaply. So one of the reasons you HAVE 
your TRS-80 to wonder about is that Radio Shack chose the 
less expensive approach. (Would you have your Color 
Computer if it cost $5000 instead of $500?). What are the 
"not so good" reasons? Since there is no common Bus, you 
can't go out and by a cheaper "Brand X" memory card in 
place of Radio Shack's (rather expensive) Ram upgrade. I 
guess that Tandy wants to keep the business "all in the 
family". Considering the Tandy prices, is it any surprise that 
my Model 1 includes an Epson Printer, Vista and Aerocomp 
disk drives, Garcia's lower case modification, and self- 
installed memory chips? 

I started off by talking about communications. Actually, I 
am planning a special series on computer communications, 
to be presented sometime in the future (prehaps by the end 
of 1982). The Color Computer has a large potential as a 
"communications" micrcomputer, and many of you might 



want to experiment with some of these features. Usually, the 
computer works "inside" in parallel, and "outside" in serial. 
What this means is that if the CPU wants to send a number (a 
byte) to a memory address, it would first put all sixteen bits 
of the address onto the address Bus, and then put all eight 
bits of the DATA byte onto the DATA bus. Both numbers 
would placed on the proper Buses "all at once". When 
information is going to a disk or a cassette, it is sent out one 
bit at a time. When something is transmitted or received one 
bit at a time, it is known as serial communication. When the 
entire number is transmitted or received at the same time, it 
is known as parallel communication. 

One type of communication has to do with the computer 
talking to "itself". Another type of communication has to do 
with the computer talking to other computers. The way this 
usually works is that the computer sends and receives 
information serially to and from a MODEM (Modulator/De- 
modulator). The MODEM will change the "bit values" into 
either sounds or voltages (depending on the type of 
MODEM). The resultant signal will then travel over a special 
wire to another MODEM, and then to the target computer. 
There is a large number of different "communication 
systems". The differences are too complex to discuss in this 
column. What I will mention is the "baud" factor. 
Communication usually occurs somewhere between 110 
"bits per second" and 9600 "bits per second". When regular 
telephone lines are used, the "speed" is usually 300 Baud 
(Bits per second), which translates into (roughly) 30 
characters per second. 

continued on page 57 
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POCKET COMPUTER CORNER 

BREAK-EVEN AND PAYBACK PERIOD 

ANALYSIS ON THE TRS-80 POCKET COMPUTER 

Steven M. Zimmerman, Ph.D. and L M. Conrad 

Copyright ® Zimmerman and Conrad 1982 



As initial indicators of tlie value of an investment, the 
break-even and payback period evaluations are both good 
first steps. Break-even analysis in particular is often 
performed graphically. Payback period analysis should also 
be graphical but often is not. Graphic evaluation is very 
difficult to do on a computer with a single 24 character line 
of output. On the other hand it is difficult to fit a TRS-80 
Model I or Model III into a pocket of one's shirt. 

The assumption in using a break-even chart is all costs may 
be classified as either fixed or variable. Fixed costs are those 
costs which do not change as the level of activity changes. 
Variable costs are those which change in a direct manner as 
the level of output changes. 

Examples of fixed costs are investment costs such as the 
dollars spent to buy a building or piece of production 
equipment in the first place. In the case of a taxi business the 
fixed costs are those costs necessary to purchase the 
vehicles. 

Variable costs, in the case of a taxi cab, are such items as 
gasoline, oil and labor which increase as the level of business 
increases. 

The idea behind a business or revenue break-even 
analysis is to find the point or the number of miles, where 
the revenue is equal to the cost of investment plus the cost 
of operation per mile. Noteilt is expected the cost of 
operation per mile is less than the revenue generated per 
mile. If this is not true you will get a negative break-even 
point. 

The payback period approach attempts to identify the 
number of time units in the future when the break-even 
point will be reached. If you divide the number of miles 
which represents the break-even point by the number of 
revenue miles generated per year you will have a break-even 
point in terms of years. This is defined as the payback period. 
There are two types of break-even evaluations covered by 
the program. The first type is the revenue type just reviewed. 
The second type is when two alternative methods are being 
compared. For example; which of two machines or cars 
should be purchased from a costs point of view? In this case 
the break-even point is that point where the costs of the two 
alternatives are the same. If volume is greater than the break- 
even point then the alternative with the higher fixed costs 
should be selected, otherwise the alternative with the lower 
fixed costs should be selected. 

RUNNING THE PROGRAM 

The program will run in the DEFineable MODE by hiting 
SHFT and then SPC. Alternatively you may type RUN and hit 
ENTER in the RUN MODE. Also, if you have a printer, now is 
the time to turn it on. The first thing you will see after starting 



the program is the main menu which is as follows: 
1-METHODS, 2-REVENUE? 

You as the user may select to do a REVENUE type of 
analysis or to compare two alternative methods. Assume you 
selected 2 for the revenue case. Type 2, hit ENTER and you 
will see the following: 

REVENUE? 

This is a question to which you must answer the income 
generated per mile, or per some other unit of output you are 
working with. Assume you earn $0.75 per mile. Type .75, hit 
ENTER and you will see: 

ALTERNATIVE 1 

Simply hit ENTER to continue: 

FIXED COST? 

Answer this question with 5000 and hit ENTER for an 
investment of $5,000. 

VAR.? 

Now enter the variable cost per unit of output. For the 
example use .40 for $.40 per mile and hit ENTER. 

BREAK-EVEN 14285 

The above output indicates the break-even point is 
14,285 miles. This means you will be earning a profit after 
you sell 14,285 revenue miles. Now hit ENTER to continue: 

USE/YR? 

This is a question asking for the number of miles per year 
you expect to use the cab. Assume this cab is driven 75,000 
miles per year. Type 75000 and hit ENTER: 

PAYBACK 0.19 YRS 

This means in .19 years or in 2.28 months the investment 
starts earning dollars. This is an ideal application of the 
payback period. 

If you hit ENTER again you will return to the main menu. 
At this time select 1 and hit ENTER: 

ALTERNATIVE 1 

Now hit ENTER and you will see on the display: 

FIXED COST? 

Input 1 0000 for an investment in an expensive car and hit 
ENTER. 

VAR.? 

This question asks for the variable cost of alternative 1. 
Input .50 for $0.50 per mile and hit ENTER. 
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JUWJL %# dhJ JL JLJL^X^W^ Now AvailahiA ! i 



Now Available! 



WHAT DO YOU USE YOUR TRS-80® For? 

if Word Processing ? 

MULTIDOS will permit you to grab' a formatted diskette, shove it Into a track compatible drive, and write to it — no matter If it Is single density, double ^ 
density, or DBLDOS" density Ttiis is possible because of MULTIDOS' automatic density, recognition which includes diskettes formatted by ^ 
DBLDOS'" - similar to NEWDOS/80 2.0. = 

* Basic Programming ? 



"MULTI DOS' BASIC is unequaled. in both features and size, among TRS-80® Disk Basics. 

- Paul Wiener. 1 982 

Included is B BASIC/CMD which has all ot the "BOSS" single step and trace features. Now 
you can insert break points' to turn on/off the trace and/or single stepping in your BASIC pro- 
gram. Now you can save the screen as formatted and look at variable values Afterward, return 
S the screen as before and continue your BASIC program 

g ic Whatever — MULTIDOS is Easy To Learn, Easy To Use 

^^ DOS commands may be repeated, even multiple DOS commands Systems utilities never 
S require more than 2 keystrokes per query 

% Now That's Easy! To Make It Easier There is a 'Help File'! 



MULTIDOS 
Model I or Model III 

only $79^^ 

(Watch the Competition Squirm!) 



MULTIDOS Now Available From. 
WARLOCK WAREHOUSE 
1691 Eason. Ponliac, Ml 48054 

(313) 673-2224 or (313) 673-8700 
— AND — 

POWERSOFT 

1 1 500 Stemmons Fwy Suile 1 25 

Dallas. Texas 75229 

(214) 484-9428 



Cosmopolitan Electronics Corporation 

P.O. BOX 234 • PLYMOUTH, 1^1 48170 

(313) 397-3126 



Dealer Inquiries Welcomed - 



COD - Cash or Certified Check 

Allow 2 Weeks For 
Personal Checks To Clear 

ADD $3.00 

Shipping & Handling 

Michigan Residents 

Include 4% Sales Tax 
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ALTERNATIVE 2 

must now go througn the fixed cost, variable cost questions 
for the second alternative. Input 5000 for fixed costs and 
1.30 for variable cost. 



BREAK-EVEN 



6250 



The answer or break-even point is 6,250 miles. If you get a 
negative answer do not worry. When both sets of costs in 
one case is greater than the two costs in a second case you 
have a situation where one alternative dominates the other. 
You will get a negative break-even point. 

If you hit ENTER again and input 5000 miles per year as 
your expected use you can solve for the payback period. 

PAYBACK 1.25 YRS 

Hitting ENTER again will return you to the main menu. 

SUMMARY 

This program is effective in providing a first approximation 
to many business problems. Some investors depend on this 
technique only. This is not recommended. The techniques 
are limited and leave out some important considerations. 
You must decide when they are of value and when to seek 
more complex and detail procedures for decision making. 

If you are interested in further information and programs 
for the Trs-80 or the Sharp PC 121 1 pocket computers, look 
for our new books at your favorite store. One has just been 
published by Wm. C.Brown Company Publishers and is titled 



"Learning To Use Your Pocket Computer^'. Our second book 
will be out shortly from the same publisher titled "Practical 
Programs For Your Pocket Computer." 

PROGRAM LISTING 



70:"B=2:INPUT "1-METH0DS,2-REVENUE?";X:G0T0 lOX+70 
80:USING"#r':F0R 1=1 TO Z:PRINT "ALTERNATIVE ";I: 

INPUT "FIXED C0ST?";A(I):J=I+2:INPUT "VAR.?" ;A(J) :NEXT I 
81:Z=(A(l)-A(2)J/{A(4)-A(3)):USING"##mm": 

PRINT "BREAK-EVEN ";Z: INPUT "USE/YR?" ;U:Z=Z/U 
82:USING "mMMU-M"-?Rlfi'^ "PAYBACK ";Z;" YRS":GOTO 70 
90:Z=1;INPUT "REVENUE?";A(4) :A(2)=0:G0T0 80 
91:END 



Steven M. Zimmerman, Ph.D. 
College of Business 
University of South Alabama 
Mobile, Alabama 36688 

Leo M. Conrad 
Imagineering Concepts 
P.O. Box 9843 
Mobile, Alabama 36691-0843 
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FIVE BASIC PROGRAMS 

Jim J. Jordan 



CHASE 

CHASE is a game in which five robots are chasing you. 
Your only chance is to maneuver the robots into each other 
or into a high voltage post. If you attempt to move out of the 
playing area, you will be destroyed by a high voltage barrier 
fence! 

10 DATA 5,0,0,0,f),0 

90 REM INTRODUCTION LEADER 

100 Y=0 : X=-6 

105 FOR J=,l TO 25 

110 CLS : PRINT @ 411+X+16*Y, "CHASE" 

115 X=X-Y/2 : Y=Y+3*X/2 

120 FOR 1=1 TO 150 : NEXT I : NEXT J 

1000^ REM WSTRtlCTIONS 

1010 CLS : PRINT @ 90, "* CHASE *" 

1020 PRINT g 195, "5 Robots are chasing you! As you move, the 

Robots take the" 

1025 PRINT "shortest path toward you. Your only chance is to 

maneuver the" 

1030 PRINT "Robots into each other or into a high voltage post. 
If you" 

1035 PRINT "attempt to move out of the playing area, you will 

be destroyed" 

1040 PRINT "by a high voltage barrier fence. 
GOOD LUCK !!! " 

1045 PRINT CHR$(21) 

1065 PRINT @ 601, CHR$(253); " = Robot" 

1070 PRINT g 665, CHR$(170); " = Post" : PRINT g 729, CHR$(196)- 

" = You" 

1080 PRINT : PRINT CHR$(244); CHR$(245); CHR$(246); " To 

continue, press any ke^." 

1090 C$=INKEY$ : IF LEN(C$)=0 THEN 1090 

1100 RANDOM : DEFINT A : DIM A(45) 

2000 REM "Initialize for start of game** 

2005 CLS : PRINT "One moment please while I set-up the playing 

field" 

2010 READ R,D,N,S,E,W 

2020 RESTORE 

2030 A(1)=RND(18) : A(2)=RND(8) 

2040 FOR 1=3 TO 41 STEP 2 

2050 A(I)=RND(18) : A(I+1)=RND(8) 

2060 FOR J=l TO 1-2 : IF (A(J)=A(I))*(A(J-^1)=A(I■^1)) THEN 2050 

2070 NEXT J : NEXT I 

2100 REM PRINT SCREEN 

2110 CLS : PRINT @ 92, "* CHASE *":PRINT"":PRINT"Direction Key" 

2115 PRINT "(1) Northwest" 

2120 PRINT "(2) North" : PRINT "(3) Northeast" : PRINT "(4) West" 

2125 PRINT "(5) East" : PRINT "(6) Southwest" : PRINT "(7) South" 

2130 PRINT "(8) Southeast" 

2135 FOR 1=64 TO 512 STEP 64 

2140 PRINT @ 208-H, " "; 

2145 NEXT I 

2150 IF Rol PRINT @ 501 ."There are";: PRINT @ 564, R; " Robots"; 
2170 IF R=l PRINT g 502, "There is";: PRINT g 565, "one Robot"; 
2190 PRINT @ 629, "left."; 



2300 REM **If Robots are destroyed, print message** 

2310 PRINT g 848, ""; : I=RND(3) : IF D<2 THEN 2350 

2315 ON I GOTO 2320,2330,2340 

2320 PRINT "Wow ! You just destroyed"; D; "Robots I!" : GOTO 2350 

2330 PRINT @ 847, D; "Robots just bit the dust !!" : GOTO 2350 

2340 PRINT g 840, "What's going on ?! "; D; "Robots were 

electrocuted ! !" 

2350 IF D<>1 THEN 2400 

2360 ON I GOTO 2370,2380,2390 

2370 PRINT g 852, "Play TAPS for one Robot." : GOTO 2400 

2380 PRINT @ 848, "One Robot less !!" : GOTO 2400 

2390 IF R=4 THEN 2370 

2395 PRINT "Another Robot down-the-tubes !" 

2400 D=0 

2500 REM **Display Robots, Posts, and Player** 

2510 B$=CHR$(170) : FOR 1=1 TO 41 STEP 2 : IF 1=31 B$=CHR$(253) 

2520 IF A(I)=0 NEXT I 

2525 IF A(I)=0 NEXT I 

2530 IF 1=41 B$=CHR$(196) 

2540 PRINT g 206■^A(I)-^A(I)-^64*A(I-t•l), B$; : NEXT I 

2550 REM END OF GAME MESSAGE 

2560 IF RoO THEN 2610 

2570 A$="YOU WIN!!" 

2580 FOR 1=1 TO 19 : PRINT g 92, A$ : FOR J=l TO 125 : NEXT J 

2590 PRINT g 92, STRING$(11," ") : FOR J=l TO 125 : NEXT J : 

NEXT I : PRINT CHR$(21) 

2595 CLS : PRINT "To continue , press any key." : F$=INKEY$ 

: IF LEN(F$)=0 THEN 2595 

2598 PRINT CHR$(21) : GOTO 2005 

2600 REM INPUT DIRECTION AND UPDATE (Y) 

2610 PRINT g 192, "WHAT DIRECTION (1 TO 8)"; : INPUT A 

2615 A=INT(A) 

2620 IF(A>0)*(A<9) THEN 2650 

2630 PRINT g 912, "" : GOTO 2610 

2650 IF A<4 A(42)=A(42)-1 

2660 IF A>5 A(42)=A(42)-^l 

2670 IF (A=l)-f(A=4)-f(A=6) A(41)=A(41)-1 

2680 IF (A=3)■^(A=5)■^(A=8) A(41)=A(41)-t-l 

2700 REM CHECK FOR MOVEMENT INTO FENCE 

2710 IF (A(41)>0)*(A(41)<19)*(A(42)>0)*(A(42)<9) THEN 2810 

2720 PRINT g 843, "Congratulations, you just hit the fence !!" 

2730 A$="YOU LOSE!" : GOTO 2580 

2800 REM CHECK FOR MOVEMENT INTO POSTS OR ROBOTS 

2810 FOR 1=1 TO 41 STEP 2 : IF (A(41)<>A(I))■^(A(42)oA(I■^l)) 

NEXT I 

2820 IF I<31 PRINT g 848, "Good going, you just hit a post !" 

2825 IF I<31 GOTO 2730 

2830 IF I<41 PRINT @ 844, "Ramming a Robot is hazardous to your 

health !" 

2840 IF I<41 GOTO 2730 

2900 REM CALCULATE NEW ROBOT POSITIONS 

2910 FOR 1=31 TO 39 STEP 2 : IF A(I)=0 THEN 2950 

2915 IF A(I)<A(41) A(I)=A(I)-^1 

2920 IF A(I)>A(41,) A(I)=A(I)-1 

2930 IF A(W)<A(42) A(W)=A{I-fl)-fl 

2940 IF A(I-fl)>A(42) A(W)=A(I-fl)-l 

2950 NEXT I 
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REM CHECK TO SEE IF ROBOTS GOT TARGET 
3)310 rOR 1=31 TO 41 STEP 2 : IF (A(41)<>A(I))+(A(42)<>A(I+1)) 
NE)(I I 

31820 IF I<41 PRINT g 848, " You've been caught !! " : 
GOTO 2730 

310)3 REM CHECK TO SEE IF ANY ROBOTS RAN INTO EACH OTHER 
3110 FOR 1=31 TO 37 STEP 2 : FOR J=I+2 TO 39 STEP 2 
3120 IF (A(I)=A(J))*(A(I+1)=A(J+1))*(A(I)<>O)A(I)=0 : A(J)=0 : 
D=D+2 

3130 NEXT J : NEXT I 
3200 REM CHECK TO SEE IF ROBOTS RAN INTO A POST 



IF A(I)=0 THEN 3250 
IF (A(J)=A(I))*(A(J+1)=A(I+1))A(I)=0: 



3210 FOR 1=31 TO 39 STEP 2 

3230 FOR J=l TO 29 STEP 2 

D=D+1 

3240 NEXT J 

3250 NEXT I 

3300 REM LOOP BACK TO UPDATE THE SCREEN 

3310 R=R-D : GOTO 2110 

3320 END 

REACTION TIME 

How fast do you think you are? This program will blank the 
screen for a random period of time. Then, without notice, it 
begins counting at the center of the screen. When it starts 
counting, press the SPACE BAR as soon as possible to stop 
the counting. You have ten chances to improve your score, 
after which time your average score for the ten attempts and 
your comparative speed rating are displayed. 



5 T=RND(2000) 

7 X=l 

9 SUM=0 

12 W=2000 

15 AV=0 

20 CLS : PRINT @ 5, "How fast do you think you are ? I will 

blank the screen" 

30 PRINT "for a Random period of time. Then , without notice 

I will" 

40 PRINT "begin counting at the center of the screen. When 

I start" 

50 PRINT "counting, press the <SPACE BAR> quickly to stop the 

counting. 

60 PRINT "You have 10 chances to improve your score, after 

which I" 

70 PRINT "will display your average score for the 10 attempts 

and your" 

80 PRINT "comparative speed." 

90 PRINT : PRINT : PRINT "To begin the count, press any key." 

105 IF INKEY$="" THEN 105 

110 CLS : FOR N=l TO 10 

120 T=RND(2000) : FOR Z=l TO T : NEXT Z 

130 X$=INKEY$ : X=l 

140 PRINT g 478, X 

150 IF INKEY$o" "THEN X=X+1 : GOTO 140 

160 SUM=SUM+X 

170 FOR Z=l TO W : NEXT Z : CLS : NEXT N 

180 AV=SUM/10 

190 PRINT "Your Average is: ";AV 



m^ 



COMPASS SOFTWARE presents. 



MORRIS 

t' BDRiS 



Here's a Pair of 
Games of 




CAT and MOUSE! 

NINE MEN S MORRIS has been around Since 
the reign ol Elizabeth i Here *e present the 
game m its most generally accepted traditional 
(orm- according to Hoyle Its strategies ol 
placement and chase are classic 



BORIS offers a brand new variation The addi- 
tion ot a center square to the traditional Morns 
board iniroduces/a three-dtmensional element 
and a whole new game BORtS will lest your 
power of visualization as wen as your nerve 

Avsllabli Itr TRS-80 MUflt I « Ht 

CASSETTE fIBK. LVL II. Mln.) |t4;K 

nSK (32K MInlmuin) S24.K 



/ ^ 

Logophiles and Lexiphants 
BEWARE! 

vi^ill drive you absolutely 

MAD 

Wtiat's YOUR Turn-On? 

•The challenge of a puzzle for one 

•A competition In words tisr 

up to eight 

H you love words and word games, this 
fascinating puzzlement will give you 
hour upon hour of fun 

Every Game Is'Ditlerent' 

AnIllMi lor TRSM IMili I i III 

CASSETTE II6K. LVL II Min.| $12.95 

nSK I3ZK Minlflium] ifig.gS 



All tfie THRILLS. SPILLS. ACTION 
and EXCITEfi/IENTofafiorseshow YOU 
design your own events by selecting 
combinations of these nine courses 

1. The Big Keyhole 

2. The Little Keyhole 

3. The Rescue Race 

4. The Flag Race 

5. The Barrel Race 

6. The Slalom 

7. The Serpentine 

8. Cross Country 

9. Take Your Own Line 

Up to SIX players ride the courses, com- 
pete against the clock and each other for 
points and the CHAMPIONSHIP' Three 
levels of play let you progress to expert 
rider 

Keypad Required 

MMIihrtRS-aOModilsl&IJI 

CASSETIE (I6K Ul II Mhl $14.95 

IISK(3ZMhllN4 $24.95 



Dealer Inquiries 
Invited 



COMPASS SYSTEMS, INC. 

VILLAGE SQUARE CENTER. BOX 38S 

EAST HAMPSTEAD. NEW HAMPSHIRE 03826 

(603)329-5603 



VISA & MasterCard 
Accepted 
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2)30 IF AV<=7 THEN 4)3)3 

21J8 IF AV<8 THEN 4)3)3 

22)3 IF AV<9 THEN 410 

23)8 IF AV<10 THEN 420 

240 IF AV<11 THEN 430 

250 IF AV<12 THEN 440 

260 IF AV<13 THEN 450 

270 IF AV<15 THEN 460 

280 IF AV>15 THEN 470 

290 FOR Z=l TO W : NEXT Z : GOTO 20 

400 PRINT "The FORCE is with you !!" : GOTO 290 

410 PRINT "Greased Lightning !!" : GOTO 290 

"Faster than most players !" : GOTO 290 



420 PRINT 

430 PRINT "Average score ! Try to improve.' 

440 PRINT "Just a little below average score. 

GOTO 290 

450 PRINT "Get up and take a breather. Then, 

GOTO 290 

460 PRINT "Too slow. You need more practice!' 

470 PRINT 

480 END 



: GOTO 290 
Try again." 

try again." 



GOTO 290 



"It's past your bed time !!" : GOTO 290 



U. S. A. 

This program simply draws a picture of tiie United States 
flag on the video display. 



12 
14 
15 
30 
40 
50 FOR 



70 



*•* DRAWS A PICTURE OF THE UNITED STATES FLAG 
••* PROGRAM WRITTEN FOR TRS-80 MODEL III 



•** BY JIM J. JORDAN 1981 

6 HICKORY HALL LANE, CHA::.EST0N, S.C. 29408 



••« 



100 
110 
120 
130 
140 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 



IF X<=63 THEN 160 



REM 

REM 

REM 

REM 

CLS : PRINT TAB(7) , "UNITED STATES OF AMERICA" 

FOR X=0 TO 127 

J=0 TO 2 
Y=J+3 

SET(X,Y+40) 
SET(X,Y+33) 
SET(X,Y+27) 

SET(X,6) 

SET(X,Y+21) 

SET(X,Y+15) 

SET(X,Y+9) 

SET(X,Y+3) 

NEXT J 

NEXT X 

FOR X=6 TO 56 STEP 

SET(X,9) 

SET (X, 13) 

SET(X,17) 

SET(X,21) 

SET(X,25) 

IF X>=50 THEN 300 

Xl=X+5 

SET(X1,11) 

SET(X1,15) 

SET(X1,23) 

SET(X1,27) 

NEXT X 

FOR Y=6 TO 32 

SET(62,Y) : SET(0,Y) 

SET(63,Y) : SET(1,Y) 

NEXT Y 



10 



350 IF INKEY$= 
370 GOTO 30 
375 END 



THEN 350 



SELLING PRICE 



Determining the cost of goods and services is an on-going 
and very important function of any form of business practice. 
The economic mood is dynamic, creating variable costs of 
doing business and variable net percentage of profits. 

The Cost of Doing Business represents overhead, taxes, 
sales commissions and other expenses and is based on a 
percentage of the final selling price. This program serves as a 
quick way to arrive at the proper Selling Price for any item or 
service produced for sale. 

The primary effort behind development of this program 
was to maintain an orderly format and prevent the loss of 
information or display when processing operator errors. 



10 CLS 

20 CLEAR 200 

30 FOR X=l TO 3 

40 PRINT @ 

50 PRINT g 

60 FOR X=l 

70 PRINT @ 

80 PRINT @ 

90 PRINT @ 332, "2) 

100 PRINT @ 460, "3) 

110 PRINT @ 238, ""; 

120 I=INT(VAL(C$)) : 

Item Cost"; STRING$(20,46) : GOTO 110 

130 PRINT @ 366, ""; ; INPUT E$ 

140 B=INT(VAL(E$)) : 2=332 : IF B<1 OR B>25 

PRINT @Z, "2) Cost of Doing Business (%)"; 

130 

150 PRINT @ 494, ""; : INPUT P$ 

160 D=INT(VAL(P$)) : Z=460 : IF D<1 OR D>50 



BD$=BD$+"A BUSINESS DECISION " : NEXT 
0, BD$; : PRINT @ 1023-63, BD$; 
400, "$$ Selling Price $$" 
TO 2000 ; NEXT 
404, CHR$(30) 
204, "1) Item Cost"; STRINGS (20, 46) 

Cost of Doing Business {%)"; STRING$(4,46) 
Net % of Profit Desired"; STRING$(7,46) 

: INPUT C$ 

Z=204 : IF I<1 : GOSUB 250 : PRINT @ Z, "1) 



: GOSUB 250 : 
STRING$(4,46) 



GOTO 250 



GOTO 



PRINT g Z, "3) Net %of Profit Desired"; STRINGS (7, 46)" : GOTO 150 

180.F=100-B-D 

190 G=I/F 

200 SP=G*100 

210 PRINT @ 588, "Selling Price"; STRINGS (21, 46) ; "$"; 

USING "§§m§M'; SP 

220 PRINT g 772, "Press <ENTER> to Continue 'E' <ENTER> 

to End"; : INPUT L$ 

230 IF L$="" : CLEAR 200 : PRINT g 204, CHR$(30);: 

PRINT g 332, CHRS(30);: PRINT g 460, CHRS(30);: PRINT g 588, 

CHRS(30);: PRINT g 768, CHRS(30) : GOTO 70 

240 IF L$="E". : CLS ; END 

245 IF LS<>"E" : L$="" : GOTO 220 

250 PRINT g Z, CHRS(30); "'ERROR' >»» Please Re-enter" 

260 FOR X=l TO 800 : NEXT 

270 PRINT g Z, CHRS(30) : RETURN 

280 'SELLING PRICE- -A BUSINESS DECISION 

290 'WRITTEN BY JIM J. JORDAN 

300 'JANUARY, 1981 

310 END 
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LOAN PROCESSOR 

This program computes various items about installment 
loans. First, it asks you for the amount of the loan you want to 
consider, the annual interest rate, and finally the number of 
payments (months) for the loan, and it computes the 
constant monthly payment for the loan on the terms 
specified. Then you are presented with an option table that 
allows you to compute the following items: 

(1) Display Monthly Breakdown: this shows the amount of 
the principal and interest in each payment, and the 
remaining principal. 

(2) Override Computed Monthly Payment: this allows you 
to specify a different value from the one computed by the 
program. 

(3) Display Loan Summary: this option computes the 
amount financed, the annual percentage rate, the number of 
successive installments, monthly payment, final installment, 
finance charge, and the total of the payments. 

(4) Restart Program: allows you to input another loan 
amount and start over. 

(5) End program: self-explanatory. 



JT=0 



1 GOTO 3610 

5 B=A*1)3)B : P=FPM)30 : TT=0 : TP=|3 : n="mm##.m 

10 FOR J=l TO N : T=M*B : T=INT(T+.5) : IF J=N : P=B+T 

15 TP=TP+P : B=B-P+T : TT=TT+T : Z=P-T : JT=JT+1 

2)8 IF B<)3 : P=P+B+T : TP=TP+B : B=0 : Z=P-T : N=J : J=N 

3)3 PB^B/m ■■ PT=T/10)8 : T2=TT/ 1)3)8 : P2=Z/ 1)3)8 

32 IF S=3 AND B>0 : NEXT 

33 IF S=3 AND B=)3 : J=JT : RETURN 

35 PRINT USING "MM": J; : PRINT TAB(7); 

4)5 PRINT USING F$; P2; PT; : 

PRINT USING " MM#M#.M"; PB; T2 

45 IF B=)3 : L=)3 : GOTO 52 

50 L=L+1 : IF L<12 : NEXT 

52 IF B=)3 : INPUT " Press <ENTER> For Option Table"; C : GOTO 65 

55 INPUT " Press <ENTER> to Continue Listing";C 

65 IF B=J8 : POKE 16916, )3 : RETURN 

7)3 CLS : L=)3 : NEXT 

75 RETURN 

1)30 PRINT e 85, CHR$ (2)37); " Loan Terms "; CHR$(207) 

105 POKE 16916,3 : i.%="MM.M" 

107 Q=15488 : Y=31 

110 FOR X=Q TO Q+63 : POKE X,y : NEXT : Z$="" 

115 PRINT @ 266, "Amount of Loan"; STRINGS (22, 46) ; 

118 INPUT Z$ : A=INT(VAL(Z$)) : A=ABS(A) 

119 IF A<1 : PRINT @ 266, CHR$(30); "'ERROR' Please 

Re-enter" : FOR K=l TO 800 : NEXT : PRINT g 266, CHR$(30) : 
GOTO 115 

120 IF A>10000000 : PRINT @ 266, CHR$(30); "Program Limit is 
$10000000" : FOR K=l TO 1000 : NEXT : PRINT @ 266, CHR$(30) : 
GOTO 115 

124 Z$="" 

125 PRINT e 394, "Annual Interest Rate"; STRING$(16,46) ; 

126 INPUT Z$ : R=ABS(VAL(Z$)) 

127 IF R<1 OR R>40 : PRINT g 394, CHR$(30); "'ERROR' 

Please Re-enter" :, FOR K=l TO 800 : NEXT : PRINT @ 394, CHR$(30): 
GOTO 125 

128 M=R/1200 

129 Z$="" 

continued on page 55 



IT*S EASY TO DO ANIMATION, 
DRAW PICTURES withTRS-80'' 

With ANIMATE HE you will be able to do aniiation with the 
ease of a light pen and save your animated pictures on cassette 
for later, viewing. Hatch your video display cone to life with 
animated cartoons or designs that you created yourself. 



Don't confuse this with other drawing prograis now available. 
Soie don't have the aniiation capabilities. Hith others , drawing 
a circle can be a tedious chore and the results are crude at 
best, (see below) 

With ANIMATE HE using a liaht pen is aliost like drawing with 
a pencil. Nothing else available will allow you to do aniiation 
with such great ease and satisfaction. Look at the features. 

> fiUTOHATICALLY CONNECTS POINTS (if you wish) 

> PLAY BACK your iovies or animated designs AT 128 SPEEDS 

> Each fraie will be given a fraiie nuiber and this will sake it 
EASY TO PLAY BACK REPETITIOUS FRAHES without drawing thei over 
and over. 

> Uses the LEAST EXPENSIVE type of LIGHT PEN available.lt uses 
the cassette port (255) .Any siiilar light pen will work. See 
Harch 82 CQHPUTRONICS. article titled 'PERIPHERALS AND 
PARAPHERNALIA FOR THE TftS-80' 



ANIHATE ME ; Hodel 1 version... 19.95 U_.S. (light pen not incl) 





Drawn with other. Drawn with ANIMATE HE. 

GREEN LOOKS GOOD, BUT AT 

THIS PRICE GREEN LOOKS 

GREAT! 

CRYSTAL GREEN filters EACH 7.95 + 2.00 postage = 9.95 U.S. 





o 


1 





This is the original CRYSTAL BREEN filter for your TRS-BO MODEL 
1 video display. The CRYSTAL GREEN filter is unlike any other 
green filter. HERE'S MHY. 

> EASY on the EYES 

> Uses NO TAPE, GLUE OR ADHESIVE of any type 

> Only takes SECONDS TO INSTALL because it FI 

> U.S. PATENT pending 
) RIGID ENOUGH so it does't need a cardboard frate for support 

> NOT TOO DARK 

> ATTRACTIVE DESIGN (will look like part of your video display) 

> STRICTEST QUALITY CONTROL ensures a QUALITY PRODUCT 



FITS on the display 






SEE- THRU ENTERPRISES 
933 FRANK AVE. 
MINDSOR, ONTARIO 
CANADA NSS 3P4 



ONTARIO RESIDENTS add 7Z sales tax. 

24 hour DEMO LINE for inquiries 1-519-735-2995 

TRS-80 is a tradenark of Tandy Corporation 
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NO STAR BASEBALL 

Bradley Schickling 



NO STAR BASEBALL, a game for one or two players, is a 
program written for the Radio Shacl< Model I (or III) Level II 
computer, which is like regular baseball with a few 
exceptions. The game features pitcher-batter confrontations 
which characterize baseball, with you as the player in 
command. One player selects the various pitches, while 
another controls the batter's swing. If there is just one 
player, the computer will act as the second player. 

NO STAR BASEBALL is not a difficult game to play, but it 
does require a certain amount of skill, which will effect the 
outcome of the game. Basically, all that is involved in playing 
the game is selecting pitches and controlling the bat. The 
computer does the rest. 

After entering the number of players and the players' 
name or names, the pitcher will be asked to make a pitch 
selection. The pitches are as follows: 

6 - FAST BALL 

7 - CHANGE-UP 

8 - CURVE BALL 

9 - SINKER 

If no pitch is entered, the screen will display the pitches and 
their corresponding numbers. A pitch punched into the 
computer will not appear on the screen, since this particular 
program step is done using an IN KEY statement. When the 
computer is playing, it chooses its own pitches randomly. 

The pitcher on the screen will then wind up and throw the 
ball. It is not necessary to swing at every pitch, because the 
computer is pirogrammed to call "balls" and "strikes". To 
swing at a pitch, depress the "S" key when the ball is in the 
strike zone. Not all pitches can be hit. Automatic "balls" and 
"strikes" are programmed into the computer and are 
selected randomly. Even if the "S" key is hit, the batter will 
never swing at a "ball". The ball comes into the plate on a 
timer. This means that pressing the "S" key too soon or too 
late will produce a "strike". The strike zone for a fast ball or 
change-up is across the batter's knees, and for a curve ball or 
sinker it is between the third base line and home plate. 
These instructions will be better understood when the game 
is played. 

After the ball is hit, the computer takes over. The 
computer will make the put-outs and move the runners. The 
computer will always make the lead runner force out. For 
instane, if there are runners on first and third and a ball is hit 
to the shortstop, the runner moving to second would be 
out, leaving runners at first and third. In this game there are 
no sacrifices, and there is no stealing. 

The game is a standard nine-inning game, with a 
scoreboard appearing each half-inning. In addition, the 
computer constantly displays who is pitching and who is 
batting, as well as the number of balls, strikes, outs, and the 
inning number. The game will go into extra innings and will 
go as long as the score as tied, even though the scoreboard 
can only accommodate twelve innings. 

The statistics used in this game follow closely a regular 
baseball game. Two out of every five pitches can be hit. If a 



player takes a pitch, he has a fifty-fifty chance of getting a 
called ball or strike. The batting averages should hover 
around .300. Home runs, triples, doubles, and singles are all 
controlled randomly as well as by the timer used on each 
pitch, making singles the easiest hit and triples the hardest. 

From past experience, I have noted that some people 
have difficulty in hitting the ball when they first play the 
game. Therefore, one must not be discouraged if at first they 
have trouble hitting the ball. I would also suggest that, if two 
people are playing the game, they switch chairs between 
half innings, since the pitch keys and swing key are on 
opposite sides of the keyboard. In this way, no hands will 
cross during the game. 

I hope you enjoy the game. This is one of the few games in 
which you can play and still eat your peanuts and popcorn. 
The best part of this game is that there are no multi-million 
dollar contracts. The plaiyers cannot enter the free agent 
market, and, most importantly, they cannot go on strike. No 
player will ever be a star in this game— thus the name "NO 
STAR BASEBALL". Have fun, and PLAY BALL! 

80 RANDOM : CIS : FOR X=l TO 63: PRINT "§";: NEXT X: 

DIM KX(2)3,2):CD=1 

m PRINT : PRINT g 21," NO STAR BASEBALL ": PRINT : 

1=1: Rl=)3: R2=)3: N2$="C0MPUTER" 

110 INPUT "1 OR 2 PLAYERS" ;L: IF L<1 OR L>2 THEN 110: PRINT 

115 IF L=2 THEN 120 ELSE 130 

120 INPUT "PLAYER'S NAME";N2$: IF N2$=""THEN120 

130 INPUT "PLAYER'S NAME";N1$: IF N1$=""THEN130 

145 O=0:F=0:D=0:N=0:R=0:P=0 

150 B=0:K=0:S=0:SS=0:A$="" 

155 CLS: GOSUB 5000 

159 PRINT @1, "INNING:";: PRINT @67,"OUTS:"; : PRINTS 128, 
"STRIKES:";: PRINT g 194, "BALLS:"; 

160 PRINT g 9,1;: PRINT g 73,0;: PRINT g 137, K;: PRINT g 201, B; 
170 IF I=INT(I) THEN GOSUB 2000 ELSE GOSUB 2005 

180 IF L=l AND I<>INT(I) THEN 240 

190 FOR X=l TO 700: PRINT g 755, "PITCH?" ; : FOR Y=l TO 700: 

NEXT Y: A$=INKEY$: IF A$="" THEN 192: THEN 200: IF A$="6" 

THEN 192: IF A$="7" THEN 192: IF A$="8" THEN 192: IF A$="9" 

THEN 192: NEXT 

192 PRINT g 755," ";: IF A$<="5" THEN 200 

195 IF A$="" THEN 200 ELSE 245 

200 CLS: PRINT g 410, "6 = FASTBALL" 

205 PRINT g 474, "7 = CHANGE-UP" 

210 PRINT g 538, "8 = CURVEBALL" 

215 PRINT g 602, "9 = SINKER" 

220 PRINT g 728, "HIT 'ENTER' TO CONTINUE"; iINPUTQ: GOTO 155 

240 P=RND(8): FOR X=l TO 1000: NEXT : PRINT @ 752, "SELECTING 

PITCH";: FOR X=l TO 800: NEXT : PRINT g 752," "; 

245 'IF L=l AND I=INT(I) THEN GOSUB 4900 

250 PP=RND(300)+300: FOR X=l TO PP: NEXT :W=0: GOSUB 5300: 

GOSUB 3000 

260 IF W>0 THEN 300 

264 GOSUB 3600 

265 IF H<4 THEN 300 
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266 IF H>3 THEN GOSUB 55fl0: GOSUB 3650 

267 IF S>0 THEN GOSUB 52)8(1 ELSE GOTO SfljB 
27)5 GOSUB 970 

272 IF S<5 THEN GOSUB 4495 ELSE GOTO 277 

276 GOTO 278 

277 PRINT g 405, "HIT 'ENTER' TO CONTINUE";: INPUT Q 

278 IF S>4 THEN 0=0+1 

279 IF S>4 THEN 315 
297 IF S<5 THEN 315 

300 IF B<4 AND K<3 THEN 155 

305 IF B>3 THEN GOSUB 5200 

306 IF B>3 THEN GOSUB 1300 
310 IF K>2 THEN GOSUB 6000 
315 IF 0<3 THEN 150 

320 CJ=INT(I) 

330 IF loINTd) THEN KX(CJ,2)=R:R1=R1+R 

331 IF I=INT(I) THEN KX(CJ,1)=R:R2=R2+R 

340 GOSUB 1600:1=1+. 5: IF I=INT(I) THEN CD=CD+1 

345 IF I=INT(I) THEN 350 ELSE 145 

350 IF I>9.5 AND R1=R2 THEN 145 

360 IF I<10 THEN 145 

370 END 

970 Z=RND(3) 

980 IF Z=l AND S=l THEN 1100 

990 IF Z=2 AND S=l THEN 1110 

1000 IF Z=3 AND S=l THEN 1120 

1005 IF S=2 THEN 1130 

1010 IF S=3 THEN 1140 

1015 IF S=4 THEN 1150 

1020 IF S=5 THEN 1160 

1025 IF S=6 THEN 1170 

1030 IF S=7 THEN 1180 

1035 IF S=8 THEN 1190 

1040 IF 8=9 THEN 1200 

1050 IF S=10 THEN 1210 

1100 PRINT g 115, "SINGLE";: GOTO 5730 

1110 PRINT @ 115, "SINGLE";: GOTO 5740 

1120 PRINT g 115,"SI_NGLE"_;: GOTO-57.50 

1130 PRINT g 115„"D0UBLE";: GOTO 5735 

1140 PRINT g 115, "TRIPLE";: GOTO 5755 

1150 PRINT g 111,"*** HOME RUN *♦*";: GOTO 5760 

1160 PRINT g 115, "GROUND OUT";: GOTO 5710 

1170 PRINT g 115, "FLY OUT";: GOTO 5730 

1180 PRINT g 115, "GROUND OUT";: GOTO 5700 

1190 PRINT g 115, "FLY OUT";: GOTO 5750 

1200 PRINT g 115, "GROUND OUT";: GOTO 5720 

1210 PRINT g 115, "FLY OUT";: GOTO 5740 

1300 IF F=0 THEN 1500 

1310 If F=l AND D=0 THEN 1510 

1320 IF F=l AND D=l AND N=0 THEN 1520 

1330 IF F=l AND D=l AND N=l THEN 1530 

1500 F=1:SET(43,45): GOTO 1540 

1510 0=1: SET (44. 28): GOTO 1540 

1520 N=l: SET(7,29): GOTO 1540 

1530 R=R+1: SET(8,44): FOR X=l TO 50: NEXT : RESET(8,44): 

GOTO 1540 

1540 PRINT g 115, "WALK";: PRINT g 405, "HIT 'ENTER' TO 

CONTINUE";: INPUT Q: RETURN 

1600 CLS: FOR X=329 TO 382: POKE 15360+X,140: NEXT : 

FOR X=585 TO 638: POKE 15360+X,140: NEXT : FOR X=457 TO 510: 

POKE 15360+X,140; NEXT 

1605 FOR X=329 TO 377 STEP 4: POKE 15360+X,188: NEXT : FOR X=585 



TO 633 STEP 4: POKE 15360+X,143: NEXT : POKE 15742,188: POKE 

15998,143 

lfil0 FOR X=393 TO 441 STEP 4: POKE 15360+X,191: NEXT : FOR X=457 

TO 505 STEP 4: POKE 15360+X,191: NEXT : FOR X=521 TO 569 STEP 4: 

POKE 1536J3+X,191: NEXT 

1615 POKE 15806,191: POKE 15870,191: POKE 1^5934,191 

1620 E=394:M=522:A=1: FOR X=266 TO 310 STEP 4: PRINT gX,A;: 

A=A+1: NEXT X: PRINT g 316, "T";: PRINT @ 384, N2$;: 

PRINT g 512, Nl$; 

1623 IF I>12.5 AND I=INT(I) THEN PRINT g 208, "PLEASE COMPLETE 
THE BOTTOM HALF OF THE INNING";: GOTO 1645 

1624 IF I>12.5 AND R1=R2 THEN PRINT @ 217, "TIED SCORE - CONTINUE 
GAME";: GOTO 1645 

- 1625 IF I>12,5 AND R1<>R2 THEN 1650 
1630 FOR CJ=1 TO CD: PRINT gM,KX(CJ,2) ; : PRINT gE,KX(CJ,l); : 
E=E+4:M=M+4: NEXT CJ 
1636 IF I=INT(I) THEN KK=522+(4*CD)-4: PRINT gKK," ";' 

1641 IF I>9.5 AND I=INT(I) THEN 1645 

1642 IF I>9 AND R1<>R2 THEN 1650 

1645 PRINT @ 730, "HIT 'ENTER' TO CONTINUE";: INPUT Q: RETURN 

1650 PRINT g 442, R2;: PRINT g 570, Rl ;: PRINT g 730, "END OF GAME";: 

RETURN 

2000 PRINT g 17, "PITCHING: ";N1$;: PRINT g 82, "BATTING: ";N2$;: 

RETURN 

2005 PRINT @ 17, "PITCHING: ";N2$;: PRINT @ 82, "BATTING: ";N1$;: 

RETURN 

3000 C=l : T=0 : Y$=" " : V=0 : H=RND ( 10) 

3010 Y$=INKEY$ 

3020 IF Y$="S" THEN RETURN 

3025 IF SS=C THEN RETURN 

3030 C=C+1:T=T+1 

3040 IF T/3=INT(T/3) THEN 3060 

3050 GOTO 3010 

3060 V=V+1 

3061 IF P=l OR P=8 THEN 3070 

3062 IF P=2 OR P=7 THEN 3080 

3063 IF P=3 OR P=6 THEN 3090 

3064 IF P=4 OR P=5 THEN 3100 

3065 IF A$="6" THEN 3070 

3066 IF A$="7" THEN 3080 

3067 IF A$="8" THEN 3090 

3068 IF A$="9" THEN 3100 

3070 ON V GOTO 3200,3205,3210,3215,3220,3225 

3080 ON V GOTO 3250,3255,3260,3265,3270,3275,3280,3285,3290, 

3295,3300 

3090 ON V GOTO 3305,3310,3315,3320,3325,3330,3335,3340,3345, 

3350,3355,3360 

3100 ONV GOTO 3400,3405,3410,3415,3420,3425,3430,3435,3440, 

3445,3450,3455 

3200 RESET(108,3): SET(81,13): GOTO 3010 

3205 RESET(81,13): SET(56,22): GOTO 3010 

3210 RESET(56,22): SET(34,30): GOTO 3010 

3215 RESET(34,30): SET{23,34): GOTO 3010 

3220 RESET (23, 34): SET (7, 40): GOTO 3010 

3225 RESET(7,40): GOTO 3500 

3250 RESET(108,3): SET(94,8): GOTO 3010 

3255 RESET(94,8): SET(81,13): GOTO 3010 

3260 RESET(81,13): SET(67,18): GOTO 3010 

3265 RESET(67,18): SET(56,22): GOTO 3010 

3270 RESET(56,22): SET(42,27): GOTO 3010 

3275 RESET(42,27): SET(34,30): GOTO 3010 

3280 RESET(34,30): SET(28,32): GOTO 3010 
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3285 RESET (28. 32) 


: SET(23,34): (30T0 3010 


32913 RESET(23,34) 


: SET(16,37): GOTO 3010 


3295 RESET(16,37) 


: SET(7,40): GOTO 3010 


33)3)3 RESET (7, 4i3): GOTO 35)3)3 


33)35 RESET(1)38,3): SET(94,8): GOTO 3)31)3 


331)3 RESET(94,8): SET(81,13): GOTO 3)310 


3315 RESET(81,13): SET(67,18): GOTO 3)31)3 


332)3 RESET(67,18): SET(56,22): GOTO 3)31)3 


3325 RESET(56,22): SET(47,26): GOTO 3)31)3 


333)3 RESET(47,26): SET(39,3)3): GOTO 3)31)3 


3335 RESET(39,30): SET{35,33): GOTO 301)3 


3340 RESET(35,33): SET(32,36): GOTO 3010 


3345 RESET(32,36): SET(29,40): GOTO 3010 


3350 RESET(29,40): SET(27,43): GOTO 3010 


3355 RESET(27,43): SET(25,47): GOTO 3010 


3360 RESET(25,47): GOTO 3500 


3400 RESET(108,3): SET(94,8): GOTO 3010 


3405 RESET(94,8): SET(81,13): GOTO 3010 


3410 RESET(81,13) 


SET(67,18): GOTO 3010 


3415 RESET(67,18) 


SET(56,22): GOTO 3010 


3420 RESET(56,22) 


SET(47,26): GOTO 3010 


3425 RESET(47,26) 


SET(39,30): GOTO 3010 


3430 RESET (39, 30) 


SET(35,33): GOTO 3010 


3435 RESET(35,33) 


SET(32,36): GOTO 3010 


3440 RESET(32,36) 


SET(28,38); GOTO 3010 


3445 RESET(28,38) 


SET(21,41): GOTO 3010 


3450 RESET(21,41) 


SET(13,44): GOTO 3010 


3455 RESET(13,44) 


GOTO 3500 


3500 W=RND(8): FOR X=l TO 50; NEXT : IF W<5 THEN 


3505 IF W>4 THEN 4010 ^"' 


3600 IF H<4 THEN 4010 ELSE RETURN 


3650 IF H>7 THEN 4000 


3655 IF H>3 AND H<8 THEN 3660 


3660 IF A$="6" THEN 3670 ELSE 3710 


3670 IF C<12 OR C>16 THEN 4000 


3675 IF C=12 THEN 4020 


3680 IF C=16 THEN 4020 


3685 IF C>12 AND C<15 THEN 4100 


3690 IF C=16 THEN 4200 


3700 IF C=I5 THEN 4300 


3710 IF A$="7" THEN 3720 ELSE 3750 


3720 IF C<24 OR C>29 THEN 4000 


3725 IF C=24 THEN 4020 


3730 IF 0=29 THEN 4020 


3735 IF C=25 THEN 4100 


3740 IF C>26 AND C<29 THEN 4200 


3745 IF 0=26 THEN 4300 


3750 IF A$="8" THEN 3760 ELSE 3790 


3760 IF C<26 OR C>31 THEN 4000 


3765 IF C=26 THEN 4020 


3770 IF C=31 THEN 4020 


3775 IF C=27 THEN 4100 


3780 IF C<31 AND C>28 THEN 4200 


3785 IF 0=28 THEN 4300 


3790 IF C<26 OR C>32 THEN 4000 


3795 IF 0=26 THEN 4020 


3800 IF C=32 THEN 4020 


3805 IF C>26 AND C<29 THEN 4100 


3810 IF C>29 AND C<32 THEN 4200 


3815 IF 0=29 THEN 4300 


4000 PRINT @ 540, "STRIKE! ";;K=K+1: GOTO 4030 


4010 PRINT @ 540, "BALL" ;:B=B+1: GOTO 4030 


4020 PRINT g 540,' 


FOUL BALL";: IF K<2 THEN K=K+1 



GOTO 4030 



FOR X=l TO 800: NEXT : PRINT @ 540," ":RETURN 
4100 G=RND(6) 
4110 IF G<3 THEN S=5 
4120 IF G=3 THEN S=l 
4130 IF G=4 THEN 8=2.' 
4140 IF G>4 THEN S=6 
4150 RETURN 
4200 G=RND(6) 
4210 IF G<3 THEN S=7 
4220 IF G=3 THEN S=l 
4230 IF G=4 THEN S=3 
4240 IF G>4 THEN S=8 
4250 RETURN 
4300 G=RND(6) 
4310 IF G<3 THEN S=9 
4320 IF G=3 THEN S=l 
4330 IF G=4 THEN S=4 
4340 IF G>4 THEN S=10 
4350 RETURN 

4495 IF S=l THEN 4497 ELSE 4510 
4497 IF N=l THEN 4665 
4500 IF D=l THEN 4685 
4502 IF F=l THEN 4705 
4505 GOTO 4725 
4507 GOTO 4537 

4510 IF S=2 THEN 4512 ELSE 4525 
4512 IF N=l THEN 4660 
4515 IF D=l THEN 4680 
4517 IF F=l THEN 4700 
4520 GOTO 4720 
4522 GOTO 4537 

4525 IF S=3 THEN 4527 ELSE 4540 
4527 IF N=l THEN 4655 
4530 IF D=l THEN 4675 
4532 IF F=l THEN 4695 
4535 GOTO 4715 

4537 PRINT @ 405, "HIT 'ENTER' TO CONTINUE";: INPUT Q: RETURN 
4540 IF N=l THEN 4650 
4542 IF D=l THEN 4670 
4545 IF F=l THEN 4690 
4547 GOTO 4710 

4550 PRINT @ 405, "HIT 'ENTER' TO CONTINUE";: INPUT Q: RETURN 
4575 PRINT @ 405, "HIT 'ENTER' TO CONTINUE";: INPUT Q: RETURN 
4650 R=R+1: RESET(7,29): FOR X=l TO 300: NEXT : SET(8,44): 
FOR X=l TO 300: NEXT : RESET(8,44) :N=0: GOTO 4542 
4655 R=R+1: RESET(7,29): FOR X=l TO 300: NEXT : SET(8,44): 
FOR X=l TO 300: NEXT : RESET(8,44) :N=0: GOTO 4530 
4660 R=R+1: RESET(7,29): FOR X=l TO 300: NEXT : SET(8,44); 
FOR X=l TO 300: NEXT : RESET(8,44) :N=0: GOTO 4515 
4665 R=R+1: RESET(7,29): FOR X=l TO 300: NEXT : SET(8,44): 
FOR X=l TO 300: NEXT : RESET (8, 44) :N=0: .GOTO 4500 
4670 R=R+1:.RESET(44,28): FOR X=l TO 300: NEXT : SET(7,29): 
FOR X=l TO 300: NEXT : RESET(7,29): FOR X=l TO 300: NEXT : 
SET(8,44); FOR X=l TO 300: NEXT : RESET(8,44) :D=0: GOTO 4545 
4675 R=R+1: RESET(44,28) : FOR X=l TO 300: NEXT : SET(7,29): 
FOR X=l TO 300: NEXT : RESET(7,29): FOR X=l TO 300: NEXT : 
SET(8,44): FOR X=l TO 300: NEXT : RESET(8,44) :D=0: GOTO 4532 
4680 R=R+1: RESET (44, 28) : FOR X=l TO 300: NEXT : SET (7, 29): 
FOR X=l TO 300: NEXT : RESET(7,29): FOR X=l TO 300: NEXT : 
SET(8,44): FOR X=l TO 300: NEXT : RESET(8,44) -0=0: GOTO 4517 
4685 R=R+1: RESET (44, 28) : FOR X=l TO 300: NEXT : SET (7, 29): 
FOR X=l TO 300: NEXT : RESET(7,29): FOR X=l TO 300: NEXT : 
SET(8,44): FOR X=l TO 300: NEXT : RESET(8,44) :D=0: GOTO 4502 
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NEXT : SET(44,28):F=)3: 

NEXT : RESET (43, 45): 
X=l TO 300: NEXT : 



4690 R=R+1: RESET (43, 45) : FOR X=l TO 300: NEXT : SET (44, 28): 

FOR X=l TO 300: NEXT : RESET (44, 28): FOR X=l TO 300: NEXT : 

SET(7,29): FOR X=l TO 300: NEXT 

4692 RESET(7,29): FOR X=l TO 300: NEXT : SET(8,44): 

FOR X=l TO 300: NEXT : RESET(8,44):F=0: GOTO 4547 

4695 R=R+1: RESET (43, 45) : FOR X=l TO 300: NEXT : SET (44, 28): 

FOR X=l TO 300: NEXT : RESET (44, 28) : FOR X=l TO 300: NEXT : 

SET(7,29): FOR X=l TO 300: NEXT 

4697 RESET(7,29): FOR X=l TO 300: NEXT : SET(8,44): 

FOR X=l TO 300: NEXT: RESET(8,44) :F=0: GOTO 4535 

4700 N=l: RESET(43,45): FOR X=l TO 300: NEXT : SET(44,28): 

FOR X=l TO 300: NEXT : RESET (44, 28): FOR X=l TO 300: NEXT : 

SET(7,29):F=0: GOTO 4520 

4705 D=l: RESET(43,45): FOR X=l TO 300: 

GOTO 4505 

4710 R=R+1: SET(43,45): FOR X=l TO 300: 

FOR X=l TO 300: NEXT : SET(44,28): FOR 

RESET (44, 28): FOR X=l TO 300: NEXT 

4712 SET(7,29): FOR X=l TO 300: NEXT : RESET(7,29): FOR X=l 

TO 300: NEXT : SET(8,44): FOR X=l TO 300; NEXT :' RESET(8,44) : 

GOTO 4550 

4715 N=l: SET(43,45): FOR X=l TO 300: NEXT : RESET(43,45) : 

FOR X=l TO 300: NEXT : SET(44,28): FOR X-1 TO 300: NEXT : 

RESET(44,28): FOR X=l TO 300: SET(7,29): GOTO 4537 

4720 D=l: SET(43,45): FOR X=l TO 300; NEXT ; RESET(43,45): 

FOR X=l TO 300; NEXT : SET(44,28): GOTO 4522 

4725 F=l: SET(43,45); GOTO 4507 

4900 IF A$="6" THEN SS=RN0(9)+9 

4905 IF A$="7" THEN SS=RND(10)+20 

4910 IF A$="8" THEN SS=RND(9)+23 

4915 IF A$="9" THEN SS=RND(10)+23: RETURN 

5000 FOR X=15 TO 783 STEP 64: POKE 15360+X,191: NEXT : 

FOR X=256 TO 270: POKE 15360+X,131; NEXT : FOR X=976 TO 1022: 

POKE 15360+X,131; NEXT 

5005 POKE 16268,170; POKE 16269,131: POKE 16206,176; 

POKE 16207,191: POKE 16208,144: POKE 16272,130: POKE 16273,164: 

POKE 16335,140: POKE 16334,140: POKE 16333,140: POKE 16332;i38 

5010 SET(109,7); POKE 15543,174: POKE 15544,175: POKE 15545,143: 

POKE 15546,173 

5015 POKE 15607,137: POKE 15608,156: POKE 15609,160: 

POKE 15610,134 

5020 POKE 15670,184; POKE 15671,131: POKE 15672,160; 

POKE 15673,190; POKE 15674,189 

5025 POKE 15733,190: POKE 15734,175; POKE 15735,160: 

POKE 15736,190; POKE 15737,135: POKE 15738,170 

5030 POKE 15796,142; POKE 15797,161: POKE 15798,134; 

POKE 15799,142: POKE 15800,145: POKE 15801,131: POKE 15802,171 

5035 POKE 15860,160; POKE 15861,133: POKE 15862,160; 

POKE 15863,134: POKE 15864,149: POKE 15866,154 

5040 POKE 15925,165: POKE 15926,130: POKE 15927,148; 

POKE 15928,130; POKE 15929,148: POKE 15930,170 

5050 POKE 15985,176: FOR X=626 TO 636; POKE 15360+X,188: 

NEXT : POKE 15997,176: FOR X=688 TO 702: POKE 15360+X,131: NEXT 

5052 POKE 15988,190: POKE 15989,191: POKE 15990,191: 

POKE 15991,189: POKE 15992,191; POKE 15993,191: 

5055 POKE 15748,139: POKE 15749,180; 

POKE 15753,143: POKE 15754,175: POKE 

5060 POKE 15813,130: POKE 15814,173: 

POKE 15816,137: 



POKE 15994,191 
POKE 15752,158: 
15755,173: POKE 15756,140 
POKE 15815,144; 
POKE 15817,144; POKE 15818,136; POKE 15819,156: 
POKE 15878,184; POKE 15879,159: POKE 15880,183: 
POKE 15884,188 



POKE 15883,131: POKE 15884,188 

5070 POKE 15942,154: POKE 15943,139: POKE 15944,142; POKE 
15945.173: POKE 15946,156; POKE 15947,142; POKE 15948,151 
5075 POKE 16006,167: POKE 16007,131: POKE 16008,131; POKE 
16009,163: POKE 16010,131: POKE 16011,131; POKE 16012,164 
5080 POKE 16071,165: POKE 16073,170; POKE 16074,137: POKE 
16075,144: POKE 16077,165 

5085 POKE 16135,149: POKE 16136,160: POKE 16137,135; 
POKE 16139,149; POKE 16140,160: POKE 16141,134 

5086 POKE 16199,141; POKE 16200,142: POKE 16201,140 
5090 POKE 16203,131; POKE 16204,131; POKE 16205,131 
5100 RETURN 

5200 CLS: FOR Y=30 TO 43; SET(8,Y): SET(9,Y): SET(42,Y); 

SET(43,Y); NEXT Y: FOR X=10 TO 41; SET(X,29); SET(X,44); 

NEXT 

5205 FOR Y=3 TO 28: SET(8,Y); SET(9,Y): NEXT Y; FOR X=44 

TO 105: SET(X,44): NEXT 

5210 POKE 16308,143: POKE 16244,176: POKE 16245,143: POKE 

16181,188; POKE 16182,131; FOR X=502 TO 758 STEP 64; POKE 

15360+X,191; NEXT 5215 POKE 15365,176: POKE 15366,176: 

FOR X=7 TO 10: POKE 15360+X,r40; NEXT : FOR X=ll TO 30; 

POKE 15360+X,131: NEXT : FOR X=31 TO 34; POKE 15360+X,140; 

NEXT 

5220 POKE 15797,191: POKE 15732,188; POKE 15731,131: 

15667,176: POKE 15666,140: POKE 15665,131 

5225 POKE 15601,176; POKE 15600,140; POKE 15599,131: 

15534,176: POKE 15533,140: POKE 15532,140 

5230 POKE 15531,131: POKE 15466,176; POKE 15465,176: 

15464,140: POKE 15463,140: POKE 15462,131 

5235 POKE 15461,131: POKE 15396,176: POKE 15395,176; 

16106,176; POKE 15650,140; POKE 15502,176 

5240 POKE 16279,179: POKE 16153,131: POKE 15885,140: POKE 

15942,179; POKE 16323,131; POKE 16140,131 

5245 IF F=l THEN SET(43,45) 

5250 IF 0=1 THEN SET (44, 28) 

5255 IF N=l THEN SET(7,29) 

5260 RETURN 

5300 POKE 15796,128: POKE 15797,128: POKE 15797,160: POKE 

15733,128: POKE 15734,128; POKE 15734,170: POKE 15670,168: 

FOR X=l TO 20: NEXT 

5310 POKE 15739,144: POKE 15803,139; POKE 15804,132; 

FOR X=l TO 20: NEXT 

5320 POKE 15739,128; POKE 15803,128; POKE 15804,128; 

FOR X=l TO 20; NEXT 

5330 POKE 15675,140: POKE 15676,140; POKE 15677,140: 

POKE 15678,140; POKE 15679,132; FOR X=l TO 20: NEXT 

5335 POKE 15675,128: POKE 15676,128: POKE 15677,128; 

POKE 15678,128: POKE 15679,128: FOR X=l TO 20: NEXT 

5340 POKE 15547,158; POKE 15548,129; POKE 15484,176; 

FOR X=l TO 20: NEXT 

5350 POKE 15547,128: POKE 15548,128: POKE 15484,128: 

FOR X=l TO 20; NEXT 

5360 POKE 15480,191: 

5370 POKE 15480,128: 

5380 POKE 15670,189: 



POKE 



POKE 



POKE 



POKE 



SET (108, 3) 



POKE 15820,129 
POKE 15883,131 
5065 POKE 15878,184: POKE 15879,159: POKE 15880,183: 



i: FOR X=l TO 20; NEXT 
3: FOR X=l TO 20: NEXT 
): POKE 15669,139: POKE 15605,180: 

POKE 15604,171: POKE 15540,144: POKE 15539,160: POKE 15540,144: 

FOR X=l TO 20: NEXT 

5390 POKE 15670,128; POKE 15670,168; POKE 15669,128; 

POKE 15605,128: POKE 15604,128: POKE 15540,128: 

POKE 15539,128: FOR X=l TO 20; NEXT 

5400 POKE 15670,184; POKE 15734,175: POKE 15733,190; 

POKE 15797,161: POKE 15796,142 
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541IB RETURN 

55)3)3 POKE 15748,128: POKE 15749,128: POKE 15813,128: 
POKE 15814,128: POKE 15815,128: POKE 15878,184: 
POKE 15879,158: POKE 1588)3,135: FOR X=l TO 3: NEXT 
551)3 POKE 15944,140: POKE 15945,156: POKE 15877,18)3: 
POKE 15876,14)3: POKE 15875,139: POKE 15874,131: 
POKE 1581)3,144: POKE 158)39,176: POKE 158)38,172: 
FOR X=l TO 3: NEXT 

552)3 POKE 15877,128: POKE 15876,128: POKE 15875,128: 
POKE 15874,128: POKE 1581)3,128: POKE 15809,128: 
POKE 158)38,128: FOR X=l TO 3: NEXT 
553)3 POKE 15945,14)3: POKE 15946,14)3: FOR X=583 TO 576 
STEP -1: POKE 1536)3+X,14)3: NEXT : POKE 15942,154: 
FOR X=l TO 3: NEXT 

554)3 FOR X^576 TO 583: POKE 1536)3+X,128: NEXT : 
POKE 15943,139: POKE 15942,154: FOR X=l TO 3: NEXT 
555)3 POKE 15945,188: POKE 15946,14)3: POKE 15944,19)3: 
POKE 15943,187: POKE 160)35,142: POKE 16004,156: POKE 
16003,176: POKE 16002,160: POKE 16066,131: 
POKE 16065,135: POKE 16064,140: FOR X=l TO 3: NEXT 
5560 POKE 15944,140: POKE 15943,139: FOR X=642 TO 645: POKE 
15360+X,128: NEXT : FOR X=704 TO 706: POKE 15360+X,128: NEXT 
FOR X=l TO 3: NEXT 

5570 FOR X=585 TO 777 STEP 64: POKE 15360+X,170: 
FOR X=586 TO 778 STEP 64: POKE 15360+X,149: NEXT 
NEXT 

5590 FOR X=585.T0 777 STEP 64: POKE 15360+X,128: 
FOR X=586 TO 778 STEP 64: POKE 15360+X,128: NEXT 
POKE 15945,138: POKE 15946,133; POKE 16009,163: 
POKE 16010,131: POKE 16073,170: POKE 16074,137: 
FOR X=l TO 3: NEXT 

5600 POKE 15947,160: POKE 15948,160: POKE 16013 
fOKE 16014,139: POKE 16016,172: POKE 16017,176: 
POKE 1608^,131: POKE 16083,131: POKE 15947,142: 
POKE 15949,144: FOR X=l TO 3: NEXT : RETURN 
5700 X=10: FOR Y=43,T0 36 STEP -.175: SET(X,Y): 
NEXT J: RESET(X,Y):X=X+1: NEXT Y: RETURN 
5710 X=10: FOR Y=43 TO 25 STEP -1: SET(X,Y): FOR J=l TO 20: 
NEXT J : RESET (X , Y) : X=X+1 : NEX J Y : RETURN 
5720 X=10: FOR Y=43 TO 36 STEP -.5: SET(X,Y): FOR J=l TO 20: 
NEXT J: RESET(X,Y):X=X+l: NEXT Y: RETURN 
_5730 X=10: FOR Y=43 TO 8 STEP -1.94: SET(X,Y): FOR J=l TO 25 
NEXT J: RESET(X,Y):X=X-it1: NEXT Y: RETURN 
5735 X=10: FOR Y=43 TO 2 STEP -4.55: SET(X,Y): FOR J=l TO 50 
NEXT J: RESET(X,Y):X=X+1: NEXT Y: FOR Y=2 TO 8 STEP .667: 
SET(X,Y): FOR J=l TO 10; NEXT J: RESET(X,Y):X=X+1: NEXT Y: 
RETURN 

5740 X=10: FOR Y=43 TO 13 STEP 
NEXT J: RESET(X;Y):X=X+1: NEXT 
5750 X=10: FOR Y=43 TO 35 STEP 
NEXT J: RESET(X,Y):X=X+1: NEXT 
5755 X=10: FOR Y=43 TO 39 STEP 
NEXT J: RESET(X,Y):X=X+1: NEXT 
SET(X,Y): FOR J=l TO 10: NEXT 
5760 X=10: FOR Y=43 TO 3 STEP 



NEXT : 

: FOR X=l TO 3: 

NEXT : 



POKE 16137,135: 



,131: 



POKE 15948,183: 



FOR J=l TO 20: 



FOR J=l TO 10: 



517: SET(X,Y): 
RETURN 

11: SET(X,Y): FOR J=l TO 8: 
RETURN 
0421: SET(X,Y): FOR J=l TO 10: 
FOR Y=39 TO 35 STEP -.19: 
J:RESET(X,Y):X=X-1: NEXT Y; RETURN 
-.526: SET(X,Y): FOR J=l TO 10: 



NEXT J: RESET(X,Y):X=X■^1: NEXT Y: RETURN 

6000 CLS: 0=0+1: POKE 16320,130: POKE 16321,129: POKE 16257,160: 

POKE 16258,176: POKt 16259,152: POKE 16260,140 

6005 POKE 16261,131: POKE 16262,131: POKE 16198,160: 

POKE 16199,176: POKE 16200,156: POKE 16201,142: 



POKE 16202 
6010 POKE 
POKE 16079 
6015 POKE 
POKE 16020 
6020 POKE 
POKE 15638 
6025 POKE 
POKE 15446 
6030 POKE 
POKE 15580 
6035 POKE 
POKE 15773 
6040 POKE 
POKE 15715 
6045 POKE 
POKE 15657 
6050 POKE 
POKE 15723 
6055 POKE 
POKE 15788 
6060 POKE 
POKE 15844 
6065 POKE 
POKE 15851 
6070 POKE 
POKE 15910 
6075 POKE 
POKE 15918 
6080 POKE 
POKE 15974 
6085 POKE 
POKE 15983 
6090 POKE 
POKE 16038 
POKE 16041 
6095 POKE 
POKE 16045 
6100 POKE 
POKE 16105 
6105 POKE 
POKE 16111 
6110 POKE 
POKE 16173 
6115 POKE 
POKE 16233 
6120 POKE 
POKE 16291 
6125 POKE 
POKE 16349 
6130 POKE 
POKE 16284 
6135 POKE 
POKE 16150 
6140 PRINT 
FOR X=l TO 



,131: 
16141, 
,160: 
16082, 
,186: 
15829, 
170: 
15508, 
,140: 
15449, 
,149: 
15707, 
,131: 
15712, 
,140: 
15718, 
,176: 
15720, 
,131: 
15781, 
176: 
15791, 
,131: 
15848, 
,131: 
15907, 
,135: 
15915, 
,140: 
15922, 
,140: 
15977, 
,176: 
15985, 
,138: 
,185 
16042, 
,131: 
16050, 
,165: 
16108, 
,131: 
16114, 
,152:- 
16176, 
,176: 
16294, 
,176: 
16352, 
,140: 
16346, 
,140: 
16217, 
180: 
@ 667 
1200: 



POKE 16139 
140: POKE 
POKE 16080 
140: POKE 
POKE 15957 
170: POKE 
POKE 15574 
130: POKE 
POKE 15447 
176: POKE 
POKE 15644 
138: POKE 
POKE 15774 
176: POKE 
POKE 15716 
131: POKE 
POKE 15658 
176: POKE 
POKE 15724 
152: POKE 
POKE 15789 
176: POKE 
POKE 15845 
160: POKE 
POKE 15856 
130: POKE 
POKE 15911 
160: POKE 
POKE 15919 
131: POKE 
POKE 15975 
134: POKE 
POKE 15984 
140: POKE 
POKE 16039 



,176: POKE 
16142,131: 
,176: POKE 
16083,131: 
,149: POKE 
15765,150: 
,165: POKE 
15444,160: 
,140: POKE 
15514,137: 
,133: POKE 
15708,144: 
,131: POKE 
15713,176: 

131: POKE 
15655,176: 

176: POKE 
15721,156: 
,131: POKE 
15782,140: 
,178: POKE 
15792,144: 
,137: POKE 
15849,176: 
,170: POKE 
15908,140: 
,167: POKE 
15916,176: 

131: R"i"^ 
15923.148- 
,156: POKE 
15978,131: 

176: POKE 
15986,140: 
,176: POKE 



16140 

POKE 

16081 

POKE 

15893 

POKE 

15509 

POKE 

15448 

POKE 

15643 

POKE 

15775 

POKE 

15717 

POKE 

15659 

POKE 

15725 

POKE 

15790 

POKE 

15846 

POKE 

15857 

POKE 

15912 

POKE 

1 RO^C 

PflKF 

15976 

POKE 

15984 

POKE 

16040 



152 

16143,129: 
140 



176: POKE 16043,140: 
POKE 16046,131: POKE 
176: POKE 16051,176: 
POKE 16106,178: POKE 
152: POKE 16109,140: 
POKE 16112,163: POKE 
134: POKE 16115,131: 
POKE 16174,140: POKE 
129: POKE 16235,131: 
POKE 16232,176: POKE 
131: POKE 16293,140: 
POKE 16290,176: POKE 
131: POKE 16351,131: 
POKE 16348,140: POKE 
176: POKE 16286,176: 
POKE 16283,137: POKE 
176: POKE 16216,140: 
POKE 16149,130: POKE 
, "YOU 'RE";: PRINT @ 
NEXT : RETURN 



POKE 16044 



16049 



POKE 16052 
15107 
POKE 16110 



16113 



POKE 16172 



16175 



POKE 16234 



16295 



POKE 16292 



16289 



POKE 16350 



16347 



POKE 16285 



16282 



POKE 16215 



16085 



16084 

170- 
15702 

164 
15445 

140 
15515 

160 
15772 

131 
15714 

131 
15656 

176 
15722 

173 
15783 

140 
15843 

144 
15850 

176 
15909 

129 
15917 

129 
15973 

173 
15979 

176 
15987 

176: 



176 



144 



131 



131 



176 



140 



131 



148 



130: 
150: 
140: 
164: 
131: 
140: 
176: 
134: 
131: 
168: 
140: 
156: 
140: 
137: 
129: 
165: 

140: 
133: 
131: 
176: 
140: 
140: 
135: 
176: 
131: 



732, "OUT!";: 



Bradley Schickling 
706 Mitchell Road 
Clearfield, PA 16830 
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ASSEMBLY LANGUAGE FOR BEGINNERS (PART 4) 

Joseph Rosenman 

In the last issue I talked about the use of Flags as 
indicators of the CPU Status (yes, I notice the surrender flags 
raised up in the audience). Each flag is a specific bit in the F 
register and has a specific meaning associated with it. In a 
CPU, the operations of the flags are determined by the 
physical design of the computer. In other words, we can't 
change the use and location of these flags. On the other 
hand, we can determine and control the use of flags in our 
own programs as we see fit. Since flags indicate whether a 
certain event or condition has occurred, they are often used 
to control the operations of programs. Control? Well, 
consider the question this way: a program is going to DO 
something. It will either move something (numbers or text), 
search for something (a specific value), calculate something 
(arithmetic and logical operations) , and/or wait for something 
(interrupts or conditions). As this series on Assembly 
Language continues, we will explore each of these possibilities. 
The setting or clearing of the flag indicates whether or not 
the desired (or undesired!) condition has occured. Somewhere 
along the way, the program will examine the flag and decide 
which "direction" to take (based on the "condition" of the 
flag). By "direction", I mean to execute code "A" or code 
"B". What this means is that the computer will do one thing 
until the flag changes, at which point the computer will begin 
another task. This is one of the ways that a computer program 
makes a decision. 

Why am I talking about flags and bits now? The reason is 
that I want to introduce the SHIFT and ROTATE operations. 
Shift and rotate are things that are done to bit patterns. Shift 
means to move everything over one bit (either to the left or 
to the right). Rotate is a kind of shift, where the bit that is 
"knocked-out" is brought over to the opposite side. It might 
sound confusing, but it really isn't. Just look at these 
examples: 



Starting Pattern 


Operation 


Result 


1000 0101 


Logical Shift Left 


0000 1010 


1000 0101 


Logical Shift Right 


0100 0010 


1000 0101 


Arithmetic Shift Left 


0000 1010 


1000 0101 


Arithmetic Shift Right 


1100 0010 


1000 0101 


Rotate Left 


0000 1011 


1000 0101 ■ 


Rotate Right 


1100 0100 


1111 0000 


Logical Shift Left 


1110 0000 


nil 0000 


Logical Shift Right 


0111 1000 


1111 0000 


Arithmetic Shift Left 


1110 0000 


1111 0000 


Arithmetic Shift Right 


nil 1000 


1111 0000 


Rotate Left 


1110 0001 


1111 0000 


Rotate Right 


0111 1000 


1111 0000 


Rotate Left (1) 


1110 0001 


1110 0001 


Rotate Left (2) 


1100 0011 


1100 0011 


Rotate Left (3) 


1000 0111 


1000 0111 


Rotate Left (4) 


0000 nil 



0000 0110 
1010 1010 
nil 



0000 0110 
1010 1010 
nil 



Shift Left 
Shift Left 
Shift Left 

Shift Right 
Shift Right 
Shift Right 



1100 
0101 0100 
0001 1110 

0000 0011 
0101 0101 

0001 1110 



These are examples of Logical shifts (of one bit). Of course, 
you could continue to shift the same byte several times. 
Watch what happens if we shift the first example 4 times: 



0000 0110 

0000 1100 

0001 1000 
0011 0000 



Shift Left (1) 

Shift Left (2) 

Shift Left (3) 

Shift Left (4) 



Logical Sliift: all the bits are moved over one place to the 
left or the right. One bit is "lost", and a bit is added (from 
opposite ends). The added bit is always a zero. 

Arithmetic Shift: the same as the logical shift, except that 
whenever a Right Shift is performed, the leftmost bit BEFORE 
the shift is duplicated. In other words, if the left most bit was 
a zero, a zero will be added on the left side. If the left most 
bit was a one, then a one will be added to the left side. This 
insures that the "sign" of the number remains the same. 
Remember, the left most bit is a sign bit (positive or 
negative) in the two's complement notation. 

Rotate: just like a Shift, except whatever bit is lost on one 
side is inserted from the other. In the last example presented 
above, the low and high order nybbles were completely 
reversed using four rotates. 

Remember the CARRY FLAG bit? Well, you had better! 
There are certain SHIFT/ROTATE operations that make use 
of the CARRY bit. A byte has eight bits. In certain operations, 
the carry bit acts like a ninth high order bit. So: 

Carry - Byte Operation Carry - Byte 

1100 0011 Sh,ift Left 1 0100 0110 

would result from a "SHIFT LEFT with CARRY". I couldn't 
possibly disappoint our (loyal) readers by leaving out a few 
problem examples. 



0011 
0110 



1) 0001 1110 
3) 0110 1001 
5) 0101 0101 



2) 1100 1100 
4) 1001 0110 
6) 1010 1010 



Notice that the left starting nybble (underlined) has been 
moved into the right ending nybble. Before I continue with 
the amazing traits of the lowly SHIFT, I had better formally 
describe the different types of shifting operations available. 



and four problems with the Carry bit 



7) 1 0110 1110 
9) 1001 1100 



8) 1 1100 0100 
10) 0111 1001 
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Take each example and perform: 
2 Logical Shifts Left 
2 Logical Shifts Right 
2 Arithmetic Shifts Left 
2 Arithmetic Shifts Right 
2 Rotates Left 
2 Rotates Right 

So if I gave you the pattern 1111 0000, I should get back: 



1111 
1111 
1111 

nil 
nil 
nil 



= 111)3 am, iija 
= 0111 \m, mn 11 
= 11113 am, 110 
= nil im. nil im 
= iiif) mi, iiM i3j3ii 
= J3111 im. mi im 



(LSD 

(LSR) 

(ASL) 

(ASR) 

(RL) 

(RR) 



LSL stands for "Logical Shift Left". I'm sure you can figure 
out the rest! If you are debating whether or not to "do it", 
then DO IT. A little practice now will dramatically help you in 
two or three months time (that's a promise). 

We are getting dangerously close to the point where we 
will actually learn some assembly language code! In fact, the 
next issue will begin the introduction of the mnemonics 
(special codes) used in assembly language. In this issue, I 
want to describe the format of assembly language: what 
kinds of statements there are, how to set them up, etc. 
Remember, every computer program or language will have a 
specific format that has to be used. For instance, BASIC 
statements always begin with line numbers (that are in 
sequence). Each statement must begin with either a 
command (like PRINT, CLEAR, POKE), or an assignment 
(A=A+1, C=SGN(B), or C=1023). Assembly language also 
has a special format. There are four fields in each assembly 
language statement: 

(1) Label field 

(2) Command field 

(3) Argument field 

(4) Comment field 

The LABEL field always begins in column 1. It is an 
optional field, and sometimes contains a symbol that 
identifies the LOCATION of the statement. You will read 
more about labels in the next issue, so hang in there. 

The COMMAND field is the primary field, and usually 
begins in column 8 or 10. This is the field where the 
INSTRUCTION would be (for example, shift a number in a 
register, or add the contents of two registers together). 

The ARGUMENT field usually begins in column 16 or 20. 
It indicates what the COMMAND will operate on. The 
argument field might contain the memory address, or the 
target register. 

The COMMENT field begins after the ARGUMENT field 
ends (with at least one blank separating the fields). In the 
Z80 Assembly language, it always begins with a semi-colon 
(;). This field is optional, and can contain any notes you 
consider helpful in describing what the program is doing. 
Even though this field is optional, it is IMPORTANT. 
Sometimes, the comments in this field are the only chance 
you will have in understanding what you coded the day 
before! 



In Assembly language, there are two kinds of statements. 
One is the Assembly Language Mnemonic, and is converted 
into a machine language code. The other type of statement is 
called a DIRECTIVE. Directives are instructions to the 
Assembler that tell it how to go about its business. Directives 
do not generate macliine code! There are two Directives I 
will introduce today: ORG and END. ORG tells the 
Assembler where (in memory) this program should start. 
END tells the Assembler that (what else) it has reaqhed the 
end of the code. 

Where in memory? Well, pick an address. Remember that 
the valid addresses in most microcomputers range fitom to 
FFFFH. But are all addresses created equal? Yes and no. From 
the point of view of the CPU, an address is an address. No 
single address is better or worse then any other. But your 
TRS-80 is not just a CPU. In addition to the CPU, there are 
I/O devices (such as the keyboard, CRT, cassette, ^isk, RS- 
232C). There is also the Level 2 ROM. 

The Level 2 ROM "resides" in addresses to 2FFFiH. Since 
there is ROM at these addresses, you can't write a program 
there. (The ROM contains the routines that aijows the TRS- 
80 to decide whether or not it is a disk/non-disk system, and 
the I/O routines for the keyboard, CRT, and cassette. Of 
course. It also contains the Level 2 BASIC interpreter.) 
Actually, the ROM is a program that can't be erased. 
Addresses 3000 to 3FFF are also unavailable. Some of this 
area is blank. Other parts contain very special RAM used by 
the TRS-80 system. 

For example, addresses 3C00 to 3FFF contains RAM. 3FFF- 
3C00=3FF (3FFH=1023). Oddly enough, 16*64=1024. 
What does 16 and 64 have to do with anything? Try "16 lines 
by 64 columns" for size. The CRT screen! Anything that goes 
in this special area (addresses 3C00 to 3FFF) automatically 
appears on the screen. (What do you think all of the IC chips 
are in there for?). Wait, I see a question. 3FFH equals 1023, 
not 1 024. Trying to pull a fast one, right? The answer is that 
is also a valid address. If you really want to know the size of 
3C00to3FFF,you need to say "Size = (3FFFH - 3C00H) + 1, 
and the result is 400H (which equals 1024). 

If you think that you can use any address from 4000 on 
up, you are partially correct. In disk systems, addresses 4000 
to 6FFF are reserved. Actually, addresses 4000-51 FF are 
always used by the DOS (Disk Operating System). Addresses 
5200 to 6FFF constitute an "overlay" area. You can often use 
this area, but not all the time. So everything from 7000H on 
up is useable, right? Right! Well, two problems. Problem 1: 
how much memory do YOU have? 16K RAM users will only 
have memory up to address 7FFFH. This means that if you 
have a 1 6K disk TRS-80, you only have 1 0OOH bytes free for 
programs. Actually, with memory available for as little as $25 
for each 16K, I think there are only 3 16K disk users (no, 
make that 2) left. So the first problem is memory size. The 
second is "reserved high memory". Sometimes, special 
"extra" programs are placed at the highest portions of 
memory. These programs run along with the DOS (like a 
"printer driver", or a special "keyboard driver"). For now, I 
doubt any of you have such a special program. Later on, we 
will actually write such programs! 

To summarize the valid ORG addresses for different 
systems: 
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Non-disk 


Disk 


16K 


4)3J3)3H-7FFFH 


7JB0J3H-7FFFH 




Size = 16K 


Size = 4K 


32K 


4J3)i)f)H-j3BFFF 


7)310)3H-18BFFFH 




Size = 32K 


Size = im 


48K 


4)3)3)3H-)3FFFFH 


71B)3J3H-|3FFFFH 




Size = 48K 


Size = 36K 



(GET MORE MEMORY!) 



All systems larger then 16K, whether disk or non-disk, 
require the Expansion Interface (on the Model 1). 

If you don't have EDTASM, this is the time to get it! In the 
next issue, we will use EDTASM to create, assemble, and 
execute Assembly Language programs. 

Joseph Rosenman 
35-91 161 Street 
Flushing, New York 11358 ■ 

continued from page 33 

If you have doubts about what your machine or software 
requires to work properly, then by all means consult your 
software and machine owners' manuals. 

After this, you will sometimes be asked if you want to use 
the "e'X'perf user mode. This mode skips some of the 
introductory material and also gives you short form lists of 
user menus. If you don't want the expert mode, simply hit 
ENTER, and the system will continue with questions and 
menus that are more clearly spelled out. 

Either way, the system will ask you for identification 
(unless you used auto logon) and ask if the information it 
received was correct. If the information was correct then the 
system continues, otherwise it asks for the information again. 
Once you are accepted onto the system, the computer will 
send your name to a printer and see if there is any^mail for 
you (too bad it doesn't get your pipe and slippers also), or 
messages about changes on the sytem that you should know 
about. 

If you think that at any point you want to change the 
information you entered during the initial logon procedure, 
you can do so by hitting the 'O' key. You will be returned to 
the master menu where you can begin again. 

The master menu is the core of the whole BBS program 
that allows you to control where you branch on the system. 
Some of the choices are: leaving messages, scanning 
messages, or downloading programs. There are many more 
options available. The master menu for the Bronx Board is in 
Example 2 intact for you to examine. Some boards' menus 
are slightly different. 

MASTER MENU 

THE LIST OF MASTER MENU FUNCTIONS IS AS FOLLOWS: 

R.... RETRIEVE MESSAGES 

L.... LEAVE MESSAGES FOR OTHERS TO SEE 

S....SCAN THE MESSAGES THAT ARE IN THE SYSTEM 

T....SIGN OFF THE SYSTEM, WITH THE ABILITY TO LEAVE MSGS FOR 

SYSOP 
K....KILL A MESSAGE, IF YOU KNOW THE PASSWORD 
I.... SYSTEM INFORMATION 



.LISTS THE USERLOG 

.BULLETIN OR MAGAZINE SECTION 

.ELAPSED TIME ON THE SYSTEM, HANDY FOR LONG-DISTANCE 

.CHAT WITH THE SYSOPVIF HE/SHE IS AVAILABLE) 

.MERCHANDISE REVIEW, FOR THOSE THAT HAVE IT 

.PURCHASE MERCHADISE LISTfeO IN MERCHANDISE SECTION 

.DOWNLOAD SECTION 

.EXPERT USER MODE 



Example 2: Master Menu for Bryan Boyle Bronx Bulletin Board 

Most of the choices on the menu are self-explanatory and 
will not be explained here. Besides, I think 1 should leave a 
few mysteries for you to explore on your own. The first 
choice is retrieval of messages. 



(R)etrieval of messages 

This is accomplished by pressing the 'R' key, which then 
places you in the retrieval mode of the master menu. This 
then places you in a subsection or submode menu offering 
the following: 

(l)ndividual 

This allows you to read specific messages. 

(F)orward multiple 

This allows you to read lots of messages one after the other, 
by first asking you what number you want to begin with and 
where you want to end. The system tells you what numbers 
the messages are numbered and how many there are. 

(R)everse multiple 

You can start backwards too. 

(S) elective retrieval 

This allows you to do a search based on subject. If you want 
to see a message that has a specific title, you can use this 
option. The string search doesn't have to be specific but can 
be approximately accurate in spelling. You can also select a 
group of messages from a beginning number to an ending 
number and just see that block. 

(N)EW MESSAGES 

This allows you to look only at the latest messages put on the 

system. 

continued on page 58 



FLIP-N-PIINT 



FLIP-N-PRINT ends the problems Mith. constantly 
changing printer cables. FLIP-N-PRINT allows you 
to connect two printers to the line printer port 
on vour Modl/III. Simply flip the switch to select 
either printer. Complete $54.95 



TRS-80/RS-232 ADAPTER: 



„ , Connect RS-232 Printer to 

line printer port on Hodl/lII. NO SOFTWARE DRIVER 
REQUIRED. Leaves TRS-80 RS-232 port free for modem 
use. Set at 1200 baud, or specify rate (300-9600) 
Model TU-8014 Complete $79.95 

VIRGINIA MICRO SYSTEMS, 14415 Jeff Davis Hwy 

Hoodbridge VA 22191, (703)491-6502 

Add $2.00 for Shipping VA Residents add 4% 
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SOFTWARE REVIEWS 

SMART TERMINAL from HOWE SOFTWARE 
Elliott Forman 



"Smart Terminal" is a communications program for the 
TRS-80 Models 1, 2, and 3, from Howe Software. There are 
three versions available (for the three different TRS-80 
models). The differences between the models are slight, and 
are explained in the users manual. This review is based on 
my use of Smart Terminal on a Model 1 TRS-80. It is about 
the 1982 release of Smart Terminal, which incorporates 
many significant improvements over the 1 980 version. There 
are several other communication programs around, but 
Smart Terminal is (in my opinion) the best, and certainly the 
best buy. 

A terminal program allows your TRS-80 to communicate 
with another computer. This means that whatever you type 
on your TRS-80 will appear on the other computer, and the 
information typed from the other computer appears on your 
TRS-80. Two TRS-80S could be used together to transfer 
letters, articles, and even programs. A TRS-80 with a terminal 
prograiTi could be used to communicate with a large time- 
sharing computer. All of the above applications (and more) 
can be easily accomplished with the Smart Terminal 
program. 

Some of the highlights of the Smart Terminal Program 
include: 

(1) Both Disk and/or Cassette file Save/Retrieve. 

(2) Easily customized control keys and RS-232-C options. 

(3) RS-232-C test upon power-up and during reinitialization. 

(4) Ability to save a customized version of the Smart 
Terminal program 

(5) Limited text editing functions. 

(6) Automatic transmission of files. 

(7) Transmission and reception of files with verification. 

(8) Sub-system menu that displays current options. 

(9) Ability to read and write both Electric Pencil files on 
either cassette or disk. 

(10) Complete and thorough users manual. 

That's quite an impressive list! Let me offer some 
additional details. Smart Terminal will save the file contained 
in the text buffer to either the disk or cassette. (The text 
buffer is a large area in memory used to save incoming files, 
or to stage the transmission of files. Although this buffer is 
very large, to a maximum of 38K, larger files cannot be 
spooled on to or off of the disk.) Unlike other programs I've 
seen. Smart Terminal allows you to specifiy the entire name 
and drive number (if using a disk based system). 

The Smart Terminal sub-system menu includes many 
special options for customizing the Smart Terminal system. 
In fact, all of the dip switch settings on the RS-232-C board 
(contained in the top panel of the Expansion Interface) can 
be modified by the program. What is more, these settings 
can be modified at any time. These values don't have to be 
set when the program is initializing, but can be changed 
whenever desired. There is a command to reset the RS-232- 
C values, and a separate command to change the Baud rate. 
DC codes can be enabled or disabled. 

If you have used other terminal packages, you probably 



know what it is like to have your system fail due to RS-232-C 
problems. Often, you can't exactly tell what is causing your 
system to fail, and you have to exit , (or re-boot), then run 
dianostic software to try to isolate the problem (remember 
the System Diagnostic program?). Smart Terminal incorporates 
a complete RS-232 test routine. If the RS-232 is not 
functioning normally during program initialization. Smart 
Terminal enters a "test loop". When (or if) the problem is 
corrected, the program will then complete its initialization 
and enter normal communication mode. This same process 
occurs when a "Command-T" is issued, causing the program 
to re-initialize. 

Smart Terminal has other options besides the RS-232-C 
settings. Smart Terminal provides for a set of control keys 
that range from Cntrl-A to Cntrl-Z (with values of 01 to 26). 
Ah, but what about 27, 28, and so on? Smart Terminal only 
permits 26 control keys, but you can select their values. For 
some of the work I do, I need to have the values 1BH and 
7FH. Since both of these values are beyond the "standard" 
range, I map the value 1 BH onto Cntrl-Q, and the value 7FI-I 
onto Cntrl-H. Of course, I could have placed those values on 
any other Control key if I had wanted to. When modifying a 
control key, the map of all the current values is displayed. In 
addition to the control keys, the prompt string value can be 
changed. The prompt string can be anywhere between one 
and five characters long. The string can be comprised of any 
valid ASCII characters, including control characters. If the 
characters are displayable (Le., an alphanumeric or standard 
special character), the prompt string will appear in the sub- 
system menu. If the string includes control characters, the 
control characters will appear as blanks. After setting the 
parameters of Smart Terminal, it is possible to save a special 
version of the program with the customized paranneter 
settings. If I decided to call this customized version 
MYSTERM, I would then (after saving it to disk or tape) only 
need to execute "MYSTERM". When the program is loaded 
and running, all of the parameters would be preset to my 
specifications. It is possible to save as many different 
versions of Smart Terminal on the diskette or cassette tape as 
there is room available. Just remember to give each one a 
different (and hopefully me_aningful) name. 

Not only does Smart Terminal provide a sizable text 
buffer, it allows a limited amount of text modification. The 
buffer can be filled with different "lines", each terminating 
with acarraige return (ASCII 13, or Cntrl-M). You can set the 
cursor to the first or last line, or to forward space or backward 
space the cursor by one line. You can also type directly into 
the buffer at the current cursor location. Of course, you can 
also clear the entire buffer. Smart Terminal always displays 
the current cursor location, number of bytes nsed, and 
number of bytes free (this display is a part of the sub-system 
menu). Needless to say, it is possible to create or edit a file 
using a word processor (like the Electric Pencil), prior to 

continued on page 58 
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continued from page 45 

13)3 PRINT @ 522, "Term of Loan (months)"; STRING$(15,46); 
132 INPUT Z$ : N=ABS(VAL(Z$)) 

134 IF N<1 : PRINT g 522, CHR$(3)3); "'ERROR' 

Please Re-enter" : FOR K=l TO 8)30 : NEH : PRINT @ 522, CHR$(3)3): 
GOTO 130 A 

135 W=(1+M)>N : P=(A*M'«W)/(W-1) : P=INT(P*10)3+.99) : P=P/10)3 ; 
FP=P 

140 PRINT @ 647, A$; "Computed Monthly Payment"; STRINGS (12, 46); 

USING E$; P 

145 FOR X=l TO 500 : NEXT : PRINT @ 647, STRINGS (3, 128) 

150 PRINT @ 896, AS; "Press <ENTER> To Continue"; : INPUT C 

155 POKE 16916,0 : CLS 

160 PRINT @ 90, "Option Table" 

165 PRINT @ 209, "1) Display Monthly Breakdown" 

170 PRINT @ 273, "2) Override Computed Mo. Pymt." 

175 PRINT @ 337, "3) Display Loan Summary" 

180 PRINT @ 401, "4) Restart Program" 

185 PRINT g 465, "5) End Program" 

190 PRINT g 768, CHRS(196); " Your Selection"; 

200 INPUT S : IF S<1 OR S>5 : GOTO 190 

205 ON S GOTO 210, 240, 250, 390, 350 

210 CLS : POKE 16916,3 

215 PRINT g 10, "Applied"; g 24, "Monthly"; g 40, "Remaining"; 

@ 56, "Interest"; 

220 PRINT "Pymt J"; g 74, "Principal"; @ 88, "Interest"; g 104, 

"Balance"; g 120, "To-Date" 

225 Q=15488 : Y=31 : FOR X=Q TO Q+63 : POKE X,Y : NEXT 

230 PRINT : GOSUB 5 

235 CLS : POKE 16916,0 : GOTO 160 

240 CLS : P=0 : INPUT "Prefered Monthly Payment"; P : FP=P : CLS: 

GOTO 160 

250 POKE 16916,0 : CLS : PRINT g 404, "COMPUTING SUMMARY" 

255 GOSUB 5 : CLS 

260 PRINT g 17, "S$ Loan Summary $$" 

265 Q=15424 : Y=31 

270 FOR X=Q TO Q+63 : POKE X,Y : NEXT X 

275 PRINT g 128, AS; 

278 PRINT" Amount Financed S"; USING FS; A 

280 PRINT g 128, STRINGS(3,128) 
285 PRINT g 192, A$; 

288 PRINT " Annual Percentage Rate "; R; "%" 

290 PRINT @ 192, STRINGS (3, 128) 
295 PRINT g 256, AS; 

298 PRINT " Successive Installments... ";J 

300 PRINT g 256, STRINGS (3, 128) 
.305 PRINT g 320, AS; 

308 PRINT " Monthly Payment S"; USING F$; FP 

310 PRINT g 320, STRINGS (3, 128) 
315 PRINT g 384, AS; 

318 PRINT " Final Installment $"; USING F$; P/100 

320 PRINT g 384, STRINGS (3, 128) 
325 PRINT @ 448, AS; 

328 PRINT " Finance Charge.. S"; USING F$; T2 

330 PRINT g 448, STRINGS(3,128) 
335 PRINT g 512, AS; 

338 PRINT " Total of Payments $"; USING FS; TP/100 

339 PRINT @ 512, STRINGS (3, 128) : FOR X=l TO 200 : NEXT 

340 PRINT g 896, AS; STRINGS(3,128); 

342 INPUT "Press <ENTER> for Option Table" ;C 

345 POKE 16916,0 : CLS : P=FP : GOTO 160 

350 CLS : PRINT CHR$(21) : POKE 16419,176 : POKE 16396,201 : END 



360 CLS : CLEAR 500 

365 DEFINT A-Z : X=0 : PRINT CHR$(21) 

370 FOR X=l TO 4 : LP$=LPS+"LOAN PROCESSOR " : NEXT 

380 PRINT g 0, LPS; : PRINT g 960-64, LPS; 

385 PRINT g 400, "Constant Level Payments" : FOR X=l TO 

NEXT 

390 CLEAR 100 

395 CLS : DEFINT J,L,N : DEFDBL A-F, M, P-V, Z : A=0 

400 ^="m§ " 

401 DATA 244,245,246 

402 H=PEEK(VARPTR(A$)■^2)*256+PEEK(VARPTR(A$)■^1) 

403 FOR 1=0 TO 2 ; READ J 

404 POKE H+I,J 

405 NEXT I 

406 POKE 16396,175 : POKE 16397,201 

410 POKE 16419,128 : GOTO 100 

411 'LOAN PROCESSOR 

412 'BY JIM J. JORDAN, 6 HICKORY HALL LANE, CHARLESTON, S.C. 
29408 

413 'DECEMBER 1980 

414 'THIS PROGRAM WAS DEVELOPED FOR THE TRS-80, 16K LEVEL II, 

MODEL III AND WILL NOT FUNCTION, AS DESIGNED, ON THE TRS- 
80 MODEL I OR II. 

415 END 

Note: The LOAN PROCESSOR program was developed 
explicitly for the TRS-80 Model III, and will not function, as 
designed, on the TRS-80 Model I or II. (It uses the special 
characters and POKES of the Model III.) All the other 
programs will run wither on the Model I or Model III. ■ 
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BUSINESS 
COMPUTERS 



NEW! 
F-10 Daisy Wheel 40/cps 1525. 
Comet l/P 295. 

Starwriter45cps serial 1,599. 

Special! Regularly sells for 2,395. 

Cables and interface cards available for the 

Atari, Apple, TRS-80 Osborne and CBM/Pet. 

FREE SHIPPING and HANDLING. 

766 Middle Hancock Road 

PerefbofOugh NH 03468 (603) 525-6621 
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A TWENTY-FIRST CENTURY REMINISCENCE 

OR "I REMEMBER THE TRS-80" 
Michael Herbert Shadick 



Yes, I can imagine myself telling my grandchildren-to-be, 
"I can remember when personal computers — coms — were 
so big that they actually had to sit somewhere — like, on a 
desk." 

"Honest, Grandpa." 

"That's a fact, kids. None of this newfangled wear-it-on- 
your wrist stuff!" 

"What were the coms like, back when you were little?" 
"Well, when I was little, there weren't any! At least, not 
that you could afford to own for yourself. The only places you 
found coms back then, were at the big 500 companies. 
Corporations, we used to call 'em. The very first computer — 
at least the first one in America — was called a Univac. 
Sounds like a vacuum cleaner, doesn't it?" 
"A what?" 

"That's — never mind. Anyway, the Univac was what they 
called an analog computer. It worked by — well, it was 
slower than the coms we have today. A lot slower. And a lot 
bigger, too." 

"As big as a VL (Laservision, or Videola)?" 
"On my, yes! The first Univac took up two full stories of a 
big skyscraper — an up-and-down building — and part of a 
third." 

"Why did they make it so big? It musta used lots of gens 
(energy units)." 

"indeed it did. And it wasn't very smart, either. By your — 
our — standards today, I guess you'd say it was pretty darn 
dumb." 

"Betcha had to talk slow to it, right?" 
"You might not believe this, but you couldn't talk to it at 
all. I mean, it couldn't hear you!" 
"Then how did it work?" 

"It had what we called a keyboard. Sort of like a T-pad, 
except you had to touch the keys with your fingers. You've 
seem L-views of a typewriter, haven't you?" 

"Yeah, they had a real one in school once. It was made out 
of metal." 

"Well, the Univac had keys, like a typewriter. That's how 
you communicated with it. You wrote a message to it, using 
the keys, in a special language." 
"Didn't it know American?" 

"Yes — and no. You had to be able to use its language, in 
order to communicate with it. Because it wasn't smart 
enough to know yours!" 

"Like 'Speranto, or something?" 

"No, it spoke, I mean it knew a special language which 
only the people who worked with computers knew how to 
use. And back then, that was far from everybody! One of the 
special languages which computers knew was known as 
COBOL." 

"That's a funny name. Wasn't that the name of a bomb?" 

"Not quite!. COBOL stands for Computer Operator's 

Binary Output Language. Another language was called 

FORTRAN. I never have known what that stands for! And 



then there was PASCAL. PASCAL was a language developed 
by NASA." 

"I know what NASA stands for! That's the old National Ae- 
ro-nau-tics and Space Admin. I think." 

"You're right. If you remember, they're the ones who sent 
the first manned space ship — Voran — to the moon." 
"That was in — in nineteen hundred and sixty-nine." 
"Say, you're pretty good with your history. But, getting 
back to PASCAL, it later became very popular with people 
who had some of the first personal coms." 
"Could you talk to them?" 

"Not at first. Not verbally, that is. Yet they were lots, lots 
smarter than the Univac. But they still required a keyboard." 
"I'll bet they couldn't talk back either, could they?" 
"They had a viewscreen, somewhat like the ones yours 
have, but they displayed words, mostly." 
"How were they linked?" 

"They weren't! Not when you got 'em. To link them, you 
had to have something else, something called a modem." 
"A modem let your computer communicate with others, 
over the telephone. Back then, telephones were mostly 
connected to each other by wires. Satcomes arid fibops 
(fiber optic conduits) were just coming in." 
"What was the first com that you had like?" 
"Well, it was called a TRS-80. It was the first computer for 
a lot of people." 

"Did it know many good jokes?" 

"Not unless you told them to it first! It didn't have — let's 
see, how can I explain it so you'll understand — it didn't 
really have a personality — not like the ones your coms 
have." 

"Then what could it do?" 

"You had to program it, before it could do anything. That's 
like — like the cards you buy for your coms. 
Except most of the programs for the old '80's were either on 
what they called cassettes, or on floppy disks." 
"Floppy. That's funny! Why'd they call 'em that?" 
"Because they were flexible — sort of like laserdiscs, only 
even more — well, floppy! The hard discs were just coming 
into personal use." 

"Were they better or something?" 
"They could hold a lot more data than the floppies. 
Megabytes, instead of just kilobytes." 

"You sure know a lot of funny words, grandpa!" 
"I guess you'd probably say that my '80 /oo/ced funny, too. 
And if you wanted hard output — prouts — you had to buy 
extra hardware." 

"You mean your com didn't even have a print?" 
"Not built-in, no." 

"Gee, the olden days must have been hard." 
"Well, they were sure exciting! I remember when I 
mastered my first computer language. It was called BASIC, 
which stands for — well, I'm probably boring you kids to 
death with all this old computer talk." 
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"No you aren't, grandpa! What did BASIC stand for?" 

" It was the first good personal 

computer language. And it was also the first popular one, in 
the sense that a lot of people learned it, not just the 
professional computer programmers." 

"Programmers? What did they do?" 

"Well, they were the ones who told the computers what 
to do, becore the coms could figure it out for themselves." 

"Bet it was rough, having to learn a special language just so 
you could talk to your com." 

"Not really. It was fun — if you can imagine that. You kids 
take your coms for granted. We sure didn't!" 

"Grandpa, do you wish you were back in those olden 
days?" 

"Not on your life! I wouldn't want to miss seeing what we 
have today. But I wouldn't have missed what you call the 
olden days, either, not for all the — not for the world. Why, if 
it hadn't been for the TRS-80 and other computers like 'em, 
the ones we have today would never be!" 

"That would be awful." 

"Y'know, kids — I do believe you're right!" 

"TRS-80. And you know what?" 

"What?" 

"I've still got it. It's up in the attic!" 

"Can we see it? Huh? Can we?" 

"Sure, if you'd like. It even works — if we can find 
sombody who has an outlet." 

"A what. Grandpa" 

Michael Herbert Shadick 
Cedar Square West, Apt. E-414 
1515 South Fourth Street 
Minneapolis, MN 55454 ■ 

continued from page 39 

When the Color Computer prints something (assuming 
you have a printer), the information is serially transmitted to 
the printer at 600 Baud (roughly 60 characters per second). 
This is an example of local communication, since it is 
between the computer and a peripheral (connected via a 
short cable). If you are using your Color Computer with 
Videotext or CompuServe, then you will connect the Color 
Computer to a Modem. The information will be sent and 
received over a telephone line, and is known as remote 
communication. In general, telephone communication usually 
occurs at 300 Baud. More recently, more expensive and 
faster Modems are permitting data transmission rates of 
1200 Baud. Of course, it is possible to communicate at even 
faster speeds. There is a problem, however: the telephone 
lines normally provide a "degree of purity" that is sufficient 
for "voice communication" (that is, talking on the phone). 
Using a computer communication system over the phone at 
rates between 110 and 1200 Baud is usually possible (the 
faster the transmission speed, the more errors occur). When 
using any transmission rate faster than 1200 over regular 
phone lines, the error rate becomes unacceptably high. 
There is a way out. For a (rather large) fee, the phone 
company will lease you a private phone line. These leased 
lines can insure the integrity of data communications at 
faster speeds. (Of course, they also offer "conditioning". 

continued on page 62 



FREE 

business software 
directory 

• Radio Shack's Model I, II, III. 

• Heath's MBASIC and HDOS 

• CPM: Xerox, AUo... 

• IBM Personal Computer 



"lDM2is GREAT !" 



-publisher of 80- US 



" (GL) superior to either the Osborne (SBSG & Taranto) 
or Radio Shack... MAI L-X has a greater capacity... 
more flexible than (R.S.)" 

-columnist of 80-microcomputing 

"imperceptively fast. ..(DBMS) is a good and reliable 
workhorse" -publisher of Interface Age 

Data base manager, integrated accounting package 
(AR, AP, GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 



tf^ 



Micro Architect, Inc. 

96 Dothan St., Arlington, MA 02174 



TRS-80* MAGIC 

MOD. 1 [IMPROVES LOW SPEED III TOO] 
- THE AMAZING - 




TAKE THE LOAD OFF YOUR MIND! 

Tired of finicky modei one cassette ioads? You can end 
tiiem with tlie LemonAid Loader. And don't be fooied by Its 
low price. It uses newly developed signal-active filters tliat 
focus, sliape, and size EACi-l tape pulse. You can often reliably 
load "Impossible" tapes, and "Possible" tapes load tlie first 
time everytlme! And It not only SYSTEM and CLOADs, but It 
is fully compatible witli software tape speedups and operating 
systems iilce KWICOS" too. And plug a spealcer or earpiwne 
into tlie extra output Jack for optional tape monitoring also. 

Install the LsmonAld in seconds.. .Just plug t>etween CTR 
and computer. It needs no power, no software, no rewiring, no 
adjustments, and there's no tricky CTR volume settings. 
Skeptical? Let us take the risk. Use the LemonAid Loader for 
IS days, and then, if you can do without It, return for full 
$12.99 refund, NQA. Order the LemonAid Loader today from: 

LEMONS TECH SERVICES 

325 N. HWY. 65 P.O. DRAWER 0429 

BUFFALO, MO. 65622 [417] 345-7643 

* TRS-80 Is Trademark Tandy Corp. 
"KWICOS Is Trademark KWIK Software 
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continued from page 54 

loading it into Smart Terminal (or following the receipt of the 
file from another computer). 

Smart Terminal can be set to save everything that "comes 
or goes" in the text buffer. This feature is handy if you want 
to save the "dialogue" involved in performing a certain task. 
This "scenario" could then be saved as a file and/or printed 
for later analysis. Smart terminal can also transmit entire files 
from start to finish without any operator intervention. This 
facility is known as "Automatic Transmission". Basically, all 
you need to do is load the file, tell the other system to "get 
ready to receive", and start transmission. Automatic transmis- 
sion can be started from the sub-system, or by a special 
command while in communication mode. 

The problem with all of the currently available transmission 
schemes, is that nothing is verified. Any spurious "line noise" 
will result in nasty errors. I have seen files transmitted that 
are so garbled by the time they are received that they are un- 
recognizable. Smart Terminal has an answer! The more 
advanced communication systems use special protocols to 
control and verify data transmissions. One such protocol is 
known as the IBM Binary Synchronous Communication 
protocol (an industry standard). Receive and transmit with 
verify use a (rough) variant on this protocol (of course, 
communication is still Asynchronous). This works by using 
special control codes to start and stop the transmission of 
blocks. Each block generates a special block check character. 
If the characters compare, the block is verified and the next 
block is transmitted. If the verify fails, the previous block is 
re-transmitted. The block check character is calculated using 
the CRC-1 6 method (Cyclic Redundancy Check). This is the 
same method used to verify the integrity of data on the 
floppy disks. There is only one problem: in order to use this 
feature, both computers must use the same protocol. 
Therefore, verified transmission with Smart Terminal can 
only be used by two TRS-80s running Smart Terminal. (Just 
tell your friends to buy a copy too!) 

All of the features mentioned above are controlled from 
the sub-system. To enter the sub-system, you just type 
Command-C. (Smart Terminal designates a specific key as a 
control key, and another key as the command key. In the 
Model 1 version, the up-arrow is the command key, and the 
down-arrow is the control key.) The sub-system is the key to 
using the special features of Smart Terminal that make it a 
"Smart" terminal program. One of the most significant 
improvements of this version over the earlier version, is that 
the current status of options are now displayed in the sub- 
system menu. 

Of course, no program is complete without a good users 
manual. I am happy to say that this often overlooked aspect 
of a software package has not been forgotten. The users 
manual is both comprehensive and easy to use. Of course, 
the manual does not include all of the technical information 
about data communications, but it is perfectly adequate for 
ordinary users. Except for technical questions, I would be 
hard pressed to find any information needed to make 
effective use of this program lacking. That isn't to say that 
you can master all of the features in five minutes or less. A 
program of this scope and flexibility will necessarily require 
some practice and experimentation. It will be time well 
spent. 



A Final note: Smart Terminal is designed to run with 
TRSDOS. There is a slight incompatibility with Apparat's 
NEWDOS80. The manual includes instructions on changing 
the program to run under NEWDSO80 (the change involves 
altering the value of one byte). If desired, HOWE SOFTWARE 
will sell the NEWDOS80 version rather then the TRSDOS 
version. In my opinion, it is to the credit of the programs 
author .that the manual includes such seemingly trivial (yet 
important) details. 

I found Smart Terminal to be a well designed and 
extremely useful program, with many excellent features. I 
can, without any reservations, recommend this program to 
any TRS-80 user who needs a terminal program. Smart 
Terminal is fully compatible with other terminal programs, as 
long as certain special features are not used (such as verified 
transmission). Once the basic commands are learned. Smart 
Terminal becomes very easy to use. 

Smart Terminal by Howe Software, 14 Lexington Road, 
New City, New York 10956. Model 1 and Model 3 versions 
$69.95 ($74.95 on disk), Model 2 (CP/M) version $79.95. 
Available through H & E Computronics. ■ 
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(M)ARKED RETRIEVAL 

This is accomplished after a scanning of the messages. When 
you scan you can put a marker on those messages that 
interest you. Scanning messages displays a short heading 
declaring what the main body of the message is about. 

S)canning messages 

This lets the user get a brief account of the full message. This 
is sometimes a two word blurb such as "hardware cheap." 
You can scan forwards or backwards depending on how you 
answer the prompts at the beginning of the option. In the 
scanning mode you can set a marker that you can use to see 
specific messages. 

(K)illing messages 

This is something you do if you want to delete a message left 
for you and is no longer of interest. To do this you hit a 'K' in 
the master menu, you will then be asked which message you 
wish to delete. The message heading will be displayed (to 
make certain), and you will then be asked for the proper 
password, (you didn't think they were just going to let you 
run rampant were you?) If your password is correct, or the 
message is to you or from you, the system will delete the 
message for you, after you hang up. The only other choice is 
to leave a message for the sysop (system operator) to delete 
the message for you. 

This about covers the most important parts on how to use 
the bulletin boards. The other options such as downloading 
will be discussed in the second half, on bulletin boards. 
Included in that part will be a listing of telephone numbers 
throughout the country you can call covering all subjects, 
interests, and life styles. Until next time, good computing! 

Spencer Koenig 
153-27 73 Avenue 
Flushing NY 11367 ■ 
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™TRS80 color 

From the January 1981 issue of the CSRA Computer 
Club newsletter: 

There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the , 
ROM carthdges could not be copied. This 
month's 68 Micro Journal reported they had 
disassembled the programs on ROM by 
covering some of the connector pins with 
tape. They promise details next month. Never 
tell a hobbyist something can't be done! This 
magazine seems to be the only source so far 
of technical informations on the TRS-80 color 
computer™. Devoted to SS-50 6800 and 
6809 machines up to now, 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues. 



To get the MOST from your 6809 CPU - This is the 
BEST SOURCEI The ONLY Magazine for the 8609 
Computer. Months Ahead of All Others! 



68 MICRO JOURNAL 

5900 Cassandra Smith 
HIXSON, TN 37343 



r.- $?i.50 2 Yr.- $11?. sn 

Foreign Surface Add $1?.|10 Yr 
Foreign Airmail Add IB'). 00 Yr 
•Canada 4 Mexico Ad'1 $'^.50 Yr 




WARNING! 

Electric Power Pollution. 

Spikes & Lightning 

HAZARDOUS to 

MICROCOMPUTERS!! 

Patented ISOLATORS provide '^^X ^HP^^ 1S&1 
protection from . . . 

• Computer errors cause by * 
power line Interference 

• Computer errors due to system 
equipment interaction 

• Spike damage caused by 
copler/elevator/alr conditioners '^°"^ 

• Lightning caused damage 
MONEY BACK GUARANTEE! ''^' #4,259.705 

• ISOLATOR {ISO-1) 3 Isolated 3prong sockets; Spike Suppression; 
useful for small offices, laboratories, classrooms $69.95 

• ISOLATOR (ISO-2) 2 Isolated 3-prong socket banks; (6 sockets 
total); Spike Suppression; useful for multiple equipment Installa- 
tions $69.95 

• SUPER ISOLATOR (ISO-3) similar to iSO-1 except double isolation & 
oversize Spike Suppression; widely used for severe electrical noise 
situations sucti as factories or large offices $104.95 

• SUPER ISOLATOR (ISO-11) similar to ISO-2 except double isolated 
socket banks & Oversize Spike Suppression; for the larger system In 
severe situations $104.95 

• MAGNUM ISOLATOR (ISO-17) 4 Quad isolated Sockets; Multiple 
Spike Suppressors; For ULTRA-SENSITIVE Systems In extremely 
Harsh environments $181.95 

• CiRCUiT BREAKER, any model (Add-CB) Add $9.00 

• REMOTE SWITCH, any model (Add-RS) Add $16.00 

AT YOUR DEALERS MasterCard, Visa, American Express 

ORDER TOLL FREE 1-800-225-4876 (except AK, HI, PR & Canada* 



mui Electronic Specialists, Inc. 

171 South Main Street, Bo» 389 NatiCk Mass 01760 
(617. 655 153; 



ERiWic Disk drPves 

RPM measures the rotational speed and 
variation of your disk drives, and reveals a 
common cause ot unexplained errors. 
Simple one-key operation, runs under any 
DOS, interchangeable between Models 1 
and III. Shows current and average 
speeds, plus fluctuation history. Recovers 
from severe errors. Documentation ex- 
plains how to adjust drives. Use RPM 
monthly for best results. 32-48K Model I or 




III disk: «24.95 




AMAZING PROGRAM SPEEDS UP BASIC 

Your time is valuable, so why 
waste It on slow-runnmg BASIC 
programs? PRO ■ SOFT s 

"FASTER" will analyze those 
programs whiie they run then 
show you a simple change (usu- 
ally one new line) that can re- 
duce run-times py up to 50%. TRS-80 Models I and III $29.95 

CALL NOW TOLL-FREE FOR ORDERS ONLY: 

(800) 824-7888, Oper. 422 

CalU: (800) 852-7777, Oper. 422 

Alaska/Hawaii: (800) 824-7919, Oper. 422 

For technical inlormation, write or call us directly: 

PRO^M 

P.B. 839 / No. Hollywood, Ca. 91603 / (213) 764-3131 

les tax in Caliiornia. and XS.OO ior 



Check, M-C. VISA ok. Add $2.00 lor COD, 6 
shipment outside North America. 






ITotally NEW! 

ACCEL3 

BASIC Compiler 

Model I/Ill, all DOS 

$99.95 



: 
I 




M/C.VISA 
CA add 6% 



Allen Gelder Software 

(415)387-3131 
Box 11721 San Francisco CA 94101 
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METRIC CONVERSIONS 



Jack Willett 



This program is a metric conversion calculator. It has one 
main menu and six submenus. It asks you which type of 
conversion you want and then sends you to the appropriate 
submenu. Then you input the number you want converted, 
and the answer is displayed in large type. At the end it asks 
you if you want another conversion. 



1)3 CLS : REM *** PROGRAMED BY JACK S. WILLETT *** 

2)3 PRINT : PRINT : PRINT STRING$(7," "); "METRIC EQUIVALENTS 

OF U.S. CUSTOMARY 

"MEASURES AND WEIGHTS" 
"MAIN MENU" 

"1 = LENGTH" 

"2 = AREA" 

"3 = VOLUME" 

"4 = CAPACITY" 

"5 = WEIGHT" 
"6 = PRESSURE" 



3)3 PRINT STRINGS (14," "); 
4)3 PRINT : PRINT TAB (2)3) 



5)3 PRINT STRING$(18, 
6)3 PRINT STRING$(18, 
7)3 PRINT STRING$(18, 
8)3 PRINT STRINGS (18, 
90 PRINT STRINGS (18," 
1)3)3 PRINT STRINGS(18, 
1)35 PRINT STRING$(18, 
11)3 INPUT A 



" "); 

" "); 
" "); 
" "); 
); 



"); "7 = END 



m ON A GOTO 2fl)3, 4)3)3, 6)8)3, 8)3)8, 1)3)3)3, 12)3)3 


1400 


2)3)3 CLS : PRINT : PRINT : PRINT TAB(23) " LENGTH MENU" 


21)3 PRINT TAB(2)3) "1 = CM TO IN" 


22)3 PRINT TAB(2)3) "2 = METER TO FEET" 


23)3 PRINT TAB (2)3) "3 = METER TO YAnOS" 


24)3 PRINT TAB (2)3) "4 = KM TO MILE" 


25)3 PRINT TAB(2)3) "5 = INCHES TO CM" 


26)3 PRINT TAB(2)3) "6 = FEET TO METER" 


265 PRINT TAB(2)3) "7 = YARDS TO METERS" 


27)3 PRINT TAB(2)3) "8 = MILE TO KM" 


272 PRINT TAB(2)3) "9 = MAIN MENU" 


275 INPUT B 


28)3 ON B GOTO 3)3)3, 31)3, 32)3, 33)3, 34)3, 35)3, 360, 37)3, 10 


3)30 CLS : PRINT @ 320, "" : INPUT "CM"; A : D$="CM" : 


C=0.3937 : ES="INCH" : B=A*C : GOSUB 10000 : GOTO 200 


310 CLS : PRINT g 320, : INPUT "METER"; A : D$="METER" : 


C=3.281 : ES="FOOT" : B=A*C : GOSUB 10000 : GOTO 200 


320 CLS : PRINT @ 320, "" : INPUT "METER"; A : DS="METER" 


C=1.0936 : ES="YARD" : B=A*C : GOSUB 10000 : GOTO 200 


330 CLS : PRINT g 320, "" : INPUT "KM"; A : DS="KM" : 


C=0.6214 : ES="MILE" : B=A*C : GOSUB 10000 : GOTO 200 


340 CLS : PRINT g 320, "" : INPUT "INCH"; A : DS="INCH" : 


C=2.5400 : ES="CM" : B=A*C : GOSUB 10000 : GOTO 200 


350 CLS : PRINT g 320, "" : INPUT "FOOT"; A 


DS="FOOT" : 


C=0.3048 : E$="METER" : B=A*C : GOSUB 10000 


GOTO 200 


360 CLS : PRINT g 320, "" : INPUT "YARD"; A 


DS="YARD" : 


C=0.9144 : E$="METER" : B=A*C : GOSUB 10000 


GOTO 200 


370 CLS : PRINT g 320, "" : INPUT "MILE"; A 


DS="MILE" : 


C=1.6093 : E$="KM" : B=A»C : GOSUB 10000 : GOTO 200 


400 CLS : PRINT : PRINT : PRINT TAB(20) " AREA MENU" 


410 PRINT TAB(20) "1 = SQ CM TO SQ INCHES" 


420 PRINT TAB(20) "2 = SQ M TO SQ FEET" 


430 PRINT TAB(20) "3 = SQ KM TO SQ MILE" 


440 PRINT TAB (20) "4 = SQ IN TO SQ CM" 


450 PRINT TAB(20) "5 = SQ FT TO SQ M" 





460 PRINT TAB(20) "6 = SQ MILE TO SQ KM" 


470 PRINT TAB(20) "7 = MAIN MENU" 


480 INPUT C 


490 ON C GOTO 500, 510, 520, 530, 540, 550, 10 


500 CLS : PRINT g 320, "" : INPUT "SQ CM"; A : D$="SQ CM" : 


C=0.1550 : ES="SQ INCH" : B=A*C : GOSUB 10000 : GOTO 400 


510 CLS : PRINT g 320, "" : INPUT "SQ M"; A : DS="SQ M" : 


C=10.764 : E$="SQ FEET" : B=A*C : GOSUB 10000 : GOTO 400 


520 CLS : PRINT @ 320, "" : INPUT "SQ KM"; A : D$="SQ KM" : 


C=0.3861 : E$="SQ MILE" : B=A*C : GOSUB 10000 : GOTO 400 


530 CLS : PRINT g 320, "" : INPUT "SQ INCH"; A : 


D$="SQ INCH" : C=6.4516 : E$="SQ CM" : B=A*C : GOSUB 10000 : 


GOTO 400 


540 CLS :PRINT g 320, "" : INPUT "SQ FOOT"; A : D$="SQ FOOT" 


C=0.0929 : ES="SQ M" : B=A*C : GOSUB 10000 : GOTO 400 


550 CLS : PRINT g 320, "" : INPUT "SQ MILE"; A : DS="SQ MILE" 


C=2.590 : ES="SQ KM" : B=A*C : GOSUB 10000 : GOTO 400 


600 CLS : PRINT : PRINT : PRINT TAB(20) " VOLUME MENU" 


610 PRINT TAB(20) "1 = CU CM TO CU IN" 


620 PRINT TAB (20) "2 = CU M TO CU FT" 


630 PRINT TAB(20) "3 = CU IN TO CU CM" 


640 PRINT TAB(20) "4 = CU FT TO CU M" 


650 PRINT TAB(20) "5 = MAIN MENU" 


660 INPUT D 


670 ON D GOTO 700, 710, 720, 730, 10 


700 CLS : PRINT g 320, "" : INPUT "CU CM"; A : D$="CU CM" : 


0=0.06102 : E$="CU INCH" : B=A*C : GOSUB 10000 : GOTO 600 


710 CLS : PRINT g 320, "" : INPUT "CU M"; A : D$="CU M" : 


C=35.31 : E$="CU FOOT" : B=A*C : GOSUB 10000 : GOTO 600 


720 CLS : PRINT g 320, "" : INPUT "CU INCH"; A : D$="CU INCH" 


C=16.387 : ES="CU CM" : B=A*C : GOSUB 10000 : GOTO 600 


730 CLS : PRINT g 320, "" : INPUT "CU FOOT"; A : D$="CU FOOT" 


0=0.02832 : ES="CU M" : B=A*C : GOSUB 10000 : GOTO 400 


800 CLS : PRINT : PRINT : PRINT TAB(20) "CAPACITY MENU" 


810 PRINT TAB(20) "1 = LITER TO CU INCH" 


820 PRINT TAB(20) "2 = LITER TO CU FOOT" 


830 PRINT TAB(20) "3 = LITER TO GAL (U.S)" 


835 PRINT TAB(20) "4 = LITER TO BUSHEL (U.S)" 


840 PRINT TAB(20) "5 = CU IN TO LITER" 


850 PRINT TAB(20)."6 = CU FT TO LITER" 


860 PRINT TAB(20) "7 = GAL TO LITER" 


870 PRINT TAB(20) "8 = BU TO LITER" 


875 PRINT TAB(20) "9 = MAIN MENU" 


880 INPUT E 


890 ON E GOTO 900, 910, 920, 930, 940, 950, 960, 970, 10 


900 CLS : PRINT g 320, "" : INPUT "LITER"; A : D$="LITER" : 


0=61.024 : E$="CU INCH" : B=A*C : GOSUB 10000 : GOTO 800 


910 CLS : PRINT g 320, "" : INPUT "LITER"; A : D$="LITER" : 


C=0.0353 : ES="CU FOOT" : B=A*C ; GOSUB 10000 ; GOTO 800 


920 CLS : PRINT @ 320, "" 


INPUT "LITER"; A : D$="LITER" : 


C=0.2642 : E$="GAL(U.S.)" 


B=A*C : GOSUB 10000 ; GOTO 800 


930 CLS : PRINT g 320, "" 


INPUT "LITER"; A : DS="LITER" : 


C=0.0284 : ES="BU (U.S.)" 


B=A*C : GOSUB 10000 : GOTO 800 


940 CLS : PRINT @ 320, "" 


INPUT "CU INCH"; A : D$="CU INCH" 


0=0.0164 : E$="LITER" : B=A*C : GOSUB 10000 : GOTO 800 


950 CLS : PRINT g 320, "" 


INPUT "CU FOOT"; A : D$="CU FOOT" 
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TRS-80t. 

COLOR GAME 

LIMITED OFFER ! 



"N 




WELL SEND YOU OUR BONUS GAME OF THE MONTH 

WHEN YOU BUY ANY 2 GAMES 



16Ki?tf;„EoHI-RESOLUTION GAMES'* 



GATOR ZOKE 

THE FIRST ANTI-PREPPY COMPUTER GAME 
WHERE YOU LL FIGHT OR LOSE YOUR SHIRT! 




18.95 



STARBASE ATTACK ^'^^ 
WAS a xmmm s 12.95 

HIGH SPEED ARCADE GAME 

KQSIAIC KOTKftZE 18.95 

EACH 



IHBGALLOPING GAMBLERS 

Illustrated mernony banks 

P.O.BOX 289 

WILLIAMSTOWN, MA. 01267-0289 

JEL.413-663-9648 



Master Card 
and VISA accepted. 

«TkS 80 1^ d'XM ..1 
Tandy Corp . 

••CASSETTE ^ 



CERTIFIED CHECKS OR MONEY ORDERS ONLY 
PHONE ORDERS - CALL MON-FRI 9-5 EST 



TELETYPE INTERFACE 




PARALLEL PORT TO SERIAL DATA 

INTERFACE ASR & KSR 33 TELETYPES 

MODEL 1,11, & III COMPATABLE 

NO SOFTWARE OR MEMORY REQUIRED 

20 MA. CURRENT LOOP FORMAT 

SIMPLE LLIST LPRINT COMMANDS 

LINEFEED ARER CARRIAGE RETURN 

110 BAUD RATE STANDARD 

PA RESIDENTS ADD 6% SALES TAX 



$139.95 



GTI ELECTRONICS CO. 

RD 2, BOX 234B, LEHIGHTON, PA 18235 
71 7-386-4032' 



^JS 



PROFESSIONAL COMPUTER 
CASSETTES 



TRS-80* ■ APPLE ■ COMMODORE-ATARI 

Instant Play Sliding Lock Out Doors 





Micro-comp Cassettes Head Cleaner to keep your 

Maxell Computer tape recorder at peak performance. 

CERTIFIED AT 1600 FCi ONE YEAR WARRANTY 

List price Micro-comp starting at $3.95-Head Cleaner $3.95 

SPECIAL INTRODUCTORY OFFER! 



MICRO-COMP MODEL 


UNIT PRICE 


10 PACK 


C-10 (50 feet) 


$2.95 n 


$20.00 D 


C-20 (TRS-80*) (100 feet) 


3.15 D 


22.00 D 


C-30 (150 feet) 


3.35 D 


24.00 D 


C-60 (300 feet) 


3.55 D 


26.00 n 


Head Cleaner 


2.95 D 


20.00 n 


*TRS-80-trademark of ttie Tandy Corp. 




n CHECK LJ MASTER CHARGE 


D VISA 


Minimum order for credit cards $10.00 




Card Account No. 


Expiration Date 




Name 






Address 


City 


State Zip 





Mail to P.O. Box 806, Shelton, CT 06484 

Dealer's Inquiries Welcomed 



We review prtxlucts from every source and cany ALL of THE BEST 




a •Jl mPRODUCTS 



offer products from 

Data • Micro Works 

Shack • Book Publishers 

• Centronics • Moore 

Color Invaders • Color Pac Attack 

fomtOf • Adventure Games • Text Editors 

Assemblers " PASCAL • Magikube 

Finance Programs • Color Data Organizer 

Graphic Games • Disassembler 

HARDWARE 32K RAM Expansion Board • 16K RAM Set 
Cables • Interfaces • Power Pack ROM Cartridge • Printers 

ACCESSORtES: Books • Cassettes • Supplies • Service Manuals 

Look to COMPUTERWARE for DISK SOFTWARE 

• • • NEW PRODUCTS • • * 

16 PLUS BOARD — just plug in to expand from 16K to 32K 

PAC ATTACK - graphics action gams — PAC ATTACK 

32 K versions of Editor, Assembler, Monitor, PASCAL, BERSERK game — 

Micro Text (communications) — STAR BLASTER 

Shipping from stock 



CALL'- , ,- 
OR V 

FOR 

COMPLETE 

INFORMATION 




COMPUTERWARE' 



Dept. C • Box 668 
6809 Specialists Encinitas, CA 92024 • (714)436-3512 

Computerware is a trademarlt of Computerware. 
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C=28.32 : E$="LITERS" : B=A*C : GOSUB 1)3)3)3)3 : GOTO 8)3)3 

96)3 CLS : PRINT @ 32)3, "" : INPUT "GAL."; A : D$="GAL." : 

C=3.785 : E$=" LITERS" : B=A*C : GOSUB mm : GOTO 8)3)3 

97)3 CLS : PRINT @ 32)3, "" ; INPUT "BU"; A : D$="BU" : C=35.24 

E$=" LITERS" : B=A*C : GOSUB 1)3)3)3)3 : GOTO 8)0)3 

\m CLS : PRINT : PRINT : PRINT TAB(2f)) "WEIGHT MENU" 



1)31)3 PRINT TAB(2J0) 


"1 = 


= GRAM TO 


GRAIN" 


1)32)3 PRINT TAB(2)3) 


"2 = 


= GRAM TO 


OZ AVDP" 


1)33)3 PRINT TAB(2)3) 


"3 = 


= KG TO 


LB (AVDP)" 


1)34)3 PRINT TAB (2)3) 


"4 = 


= KG TO 


TON (SHORT)" 


1)3510 PRINT TAB(2)3) 


"5 = 


= GRAIN TO 


GRAM" 


1)36)3 PRINT TAB(2)3) 


"6 = 


= OZ AVDP TO 


GRAM" 


1)07)3 PRINT TAB(2J0) 


"7 = 


= LB AVDP TO 


KG" 



1)38)3 PRINT TAB (2)3) "8 = TON SHT TO KG" 
1)385 PRINT TAB(210) "9 = MAIN MENU" 
1)39)3 INPUT F 

1)395 ON F GOTO 11)3)3, 1110, 112)3, 113)3, 114)3, 1150, 1160, 1170, 
1100 CLS : PRINT g 320, "" : INPUT "GRAM"; A : D$="GRAM" : 
E$="GRAINS" : B=A*C : GOSUB 10000 : GOTO 1000 



0=15.4324 
1110 CLS 
0=0.03532 
1120 CLS 



PRINT g 320, "" : INPUT "GRAM"; A : D$="GRAM" : 
: E$="OZ (AVDP)" : B=A*C : GOSUB 10000 : GOTO 1000 
PRINT @ 320, "" : INPUT "KG"; A : D$="KG" : C=2.2046: 
E$="LB (AVDP)" : B=A*C : GOSUB 10000 ; GOTO 1000 
1130 CLS : PRINT g 320, "" : INPUT "KG"; A : D$="KG" :C=0. 00110: 
E$="TON (SHT)" : B=A*C : GOSUB 10000 : GOTO 1000 
1140 CLS : PRINT g 320, "" : INPUT "GRAIN"; A : 0$="GRAM" : 
C=0.0648 : E$="GRAM" : B=A*C : GOSUB 10000 : GOTO 1000 
1150 CLS : PRINT g 320, "": INPUT "OZ (AVDP)";A: D$="OZ (AVDP)": 
C=28.35 : E$="GRAM" : B=A*C : GOSUB 10000 : GOTO 1000 
1160 CLS: PRINT g 320, "": INPUT "LB (AVDP)"; A: D$="LB (AVDP)": 
C=0.4536 : E$="KG" : B=A*C : GOSUB 10000 : GOTO 1000 
1170 CLS: PRINT g 320, "": INPUT "TON (SHT)"; A: 0$="TON (SHT)": 
C=907.2 : E$="KG" : B=A*C : GOSUB 10000 ; GOTO 1000 
1200 CLS : PRINT : PRINT : PRINT TAB(20) "PRESSURE MENU" 
1210 PRINT TAB(10) "1 = KG PER SQ CM TO LB PER SQ INCH" 
1220 PRINT TAB(10) "2 = LB PER SQ INCH TO KG PER SQ CM" 



mm 



F=- 



1 

I ! 






^^azHi. 



K-m WD' 







^^!^^K£l 



1230 PRINT TAB(10) "3 
1240 PRINT TAB(10) "4 
1250 PRINT TAB(10) "5 
1260 PRINT TAB(10) 
1270 PRINT TAB(28) 
1280 PRINT TAB (28) 
1290 PRINT TAB(10) 

1296 INPUT G 

1297 ON G GOTO 1300, 1310, 1320, 1330, 1340 



KG PER SQ M 

LB PER SQ FT 

KG PER SQ CM 
NORMAL ATMOSPHERE 
= 1.0133 BARS" 
= 14.696 LB PER SQ .INCH" 
6 = MAIN MENU" 



TO LB PER SQ FT" 
TO KG PER SQ M" 
TO NORMAL ATMOSPHERE" 
■■ 1.0332 KG PER SQ CM" 



1300 CLS 
C=14.223 
1310 CLS 
C=0.7703 
1320 CLS 
C=0.2048 
1330 CLS 
C=4.882 
1340 CLS 
C=0.9679 
1400 CLS 



: INPUT "KG/SQ CM"; A 
B=A*C : GOSUB 10000 : 
"LB/SQ IN"; A 
GOSUB 10000 : 
"KG/SQ M"; A 
GOSUB 10000 : 



: INPUT 
B=A*C : 
: INPUT 
B=A*C : 



INPUT "LB/SQ FT" 



D$=" KG/SQ CM": 
GOTO 1200 
D$="LB/SQ IN": 
GOTO 1200 
D$=" KG/SQ M" : 
: GOTO 1200 
A: D$=" LB/SQ FT": 
GOTO 1200 
A: D$="KG/SQ CM": 
GOTO 1200 



PRINT @ 320, " 

E$="LB/SQ IN" 

PRINT g 320, " 

E$="KG/SQ CM" 

PRINT g 320, " 

E$=" LB/SQ FT"- 

PRINT @ 320, " 
E$="KG/SQ M" : B=A*C : GOSUB 10000 

PRINT g 320, "" : INPUT "KG/SQ CM" 

E$="NORM ATMOS" : B=A*C : GOSUB 10000 

END 

10000 PRINT CHR$(23) : PRINT g 384, A; D$ ; " =" B; E$ 
10010 PRINT g 514, "CONVERSION FACTOR = "C 
10020 PRINT g 906, "HIT 'ENTER' TO CONT." 
10030 A$=INKEY$ : IF A$="" THEN 10030 ELSE RETURN 
10040 END 

Jack Willett 

14089 Buckner Drive 

San Jose, CA.95127 ■ 



continued from page 57 

When a line is "conditioned," it becomes even more reliable 
and "clean". Yes, there is an additional charge for this 
service.) 

Don't worry, you won't need to lease a phone line for your 
Color Computer. You can use your Color Computer as a 
"remote terminal". This means that your computer can act as 
an Input/Output station for another computer. Whatever 
you type into the keyboard will go to the "host" computer 
(which could be in another City, State, or even Country). The 
result of your entry will be displayed on the TV screen. Radio 
Shack has provided a special package to permit this type of 
activity. In the next issue, 1 will review the Color Computer 
Videotex/CompuServe package. For those of you who can't 
wait, you will need a Modem and a special cable to use the 
Videotex package. 

One last point.. I have been finding that certain Radio Shack 
stores have been specializing in the TRS-80 computers, 
while "all of the others" have reduced their computer 
inventory. In fact, one store manager confessed to me that 
the "non-computer" stores will only stock the "big sellers". 
This makes sense to me, so I suggest you locate the nearest 
computer center. Such items as the Color Computer RS-232- 
C to DB-25 cable (needed when using a standard Modem) 
will most probably only be found at the computer centers. 

Joseph Rosenman 
35-91 161st Street 
Flushing, NY 11358 ■ 
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THE BIGGEST NAME IN LITTLE COMPUTERS" 

TRS-80 Model H— Your Best Buy 
In a Business Microcomputer 




UP 
TO 

15% 



on 

TRS-80 computers, 
software and peripherals 

Similor values on all merchandise 
CALL COLLECT: 

915-283-2920 

Van Horn Office Supply 

701 W. Broadway -- P O Box 1060 
Van Horn, Texas 79855 

DEALER G055 

Form F48 Provided 

Standard Warranty in Effect 

THE NATIONWIDE SUPERMARKET OF SOUND" 



VBA 




ss The Electronic 
Astrologers' 

\ cast an accurate birth chart for 
[any date, time and place from 
1880 to 2000, then tell you 
what it means! They give per- 
sonalized astrological consul- 
jtations of 1500 words or more, 
based not just on your Sun sign, but on the unique rela- 
tion of ALL the planets at your birth moment. 

ASTRO-SCOPE 

delineates your character, its strengths and weaknesses, 
and touches on many areas of life such as relationships, 
finances, career and life goals. Text is by Steve Blake, 
psychology-oriented astrologer and popular lecturer, and 
Robert Hand, pioneer in astrological microcomputir^g 
and author of four bestselling astrology books $30 

tells you things your astrologer would blush to reveal! 
John Townley, author of Planets in Love, an editor of 
Sexology Today, and a student of all forms of sexual be- 
havior, uncovers your tastes and turn-ons $30 

for 

TRS-eO* Made! I or III, wl1ti TRSCOS, 32K RAM, 2 drives 

Apple lit wl+h ^lesoft, 32K RAM, 1 d-Ive 



tTM of Apple, Inc. 



*TM of Tandy Corp. 



WE TAKE MASTENCARO AND VISA 

Box 28, Orleans, Ma. 02653 
Telephone 6 1 7/255-05 1 



AGS Software 
Outside USA please add $2.50 shipping charge 



mvBgtM 



SSI's nmm additions to th« BAHE 




Turn thm tablMi on aonstors 
■•t on conBUSing th* gobblor. 

Skill lovais fro* baginnar 
to •Hpart. Hrlttvn in «achln» 
languago, advancod graphics, 
with sotivatlonal sound to add 
to ths sMclts— nt of gobbling 
up ths sonstsrs. 

Lst ths gobbling bsgln !! 



I & 



3 TAPE-M16.99 
DI8K-«19.9S 



An SKCiting nsM addition to 
ths spacs MOT f asi 2 y of 
prograss. 88! * s nsw ALIEN 
INVADERS spacs Mar gass offsrs 
■Fast arcads action. It has a 
largs sslsction of Isvsl of 
play so ths playar can start 
at bsginnsr and ad vanes to 
sxpsrt. 

Hodsls I It III 16K Taps «19.9S 
Disk «24.9S 



BOTH COHE HITH EXCITING SOUND 



STRUHAP 3.0 H/ Data Fils Editor 
Now ths structural progras that brought 
sin frass coaputing pMsr to ths sicro has an 
■dltor and a cholcs of unlts-kips,lbs,in,ft ti 

Writs data fllss and thsn savs thss to -*. 
disk, load fros disk, dslsts, inssrt or changs 
linss of data. Ssvsral loads can bs put into 
ths fils and coabinatlons of loads m/ load 
factors can bs ussd. 

Analysis plans frasss or continuous bsass 
find sossnts, shsars and axial forcss In 
sach sssbsr. Also, gst Joint displacsiwnts- 
vsrtical, horizontal, and rotational. 

I 48K 1-Disk Disk (1349.93 



"Superior 

>- OFTWARE 



Ssnd for a cosplete listing of 
our prograss. 

Enginnsring 

Education 

Busi nssB 

Q asss 

MISSOURI RESIDENTS 

PLEASE ADD 
4i* STATE SALES TAX 



Write SSI for Information about marketing your 
programs: P.O. Box II676 Kansas City, HO 611138 



First came MICROPROOF'": 



"There is simply no finer program available ..." 
(Creative Computing. March 1982) 



S^XING 



0«ECKER 



The Ultimate: 



FAST— Can proof ten pages in a minute 
£''45'K— Operates at the stroke of a kev 
COMPLETE— 50.000 word literal dietionar\ 
rO/V/Z'/rrr-Fits on Sy/ double density disk 
VERSATILE— Vac with all W P programs 
rO/?/?£Tr.V— (Optional, add $60 00) 
AFFORDABLE— im.iO (TRS-XO" ) 



$149.50 (CP M" 



CORNUCOPIA 
SOFTWARE, INC. 

1625 Beverly Place 
Berkeley.CA 94707 



Contaci your local dealer. 
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Tired €f Tour 

GENERAL LEDGER? 



VERSA- 
LEDGER 



• THE ULTIMATE PERSONAL CHECK REGISTER 

• A PROFESSIONAL ACCOUNTING SYSTEM 
ir A PERSONAL FINANCIAL MANAGER 

ic A SMALL BUSINESS ACCOUNTING SYSTEM 
^ A COMPLETE GENERAL LEDGER 



m^ mm mMm M%mi o, i, m m mm^ mmmm • mm w • d j.i.* • mmw • !Mmp 

•TRS-80 is a trademark of Tandy Corp. - *APPLE is a trademark of Apple Corp. - "I.B.M. is a trademark of I.B.M. Corp. - *XEROX is a trademark of Xerox Corp. 
"ATARI is a trademark of Atari Inc. - 'OSBORNE is a trademark of Osborne Corp. 

1€W IT woRrs 

VERSALEDGER is a complete accounting system that grows as you or your business grows. To 
start, your VERSALEDGER acts as a simple method of keeping track of your checkbook. Just 
enter your check number, date and to whom the check is made out to. As you or your business 
grows, you may add more details to your transactions .... account number, detailed account 
explanations, etc. 



VERSALEDGER 



VERSALEDGER can give you an instant casii 
balance at anytime. (IF YOU WANT IT TO) 

VERSALEDGER can be used as a small per- 
sonal checkbook register. (IF YOU WANT IT 
TO) 

VERSALEDGER can be used to run your 
million dollar corporation. (IF YOU WANT IT 
TO) 

VERSALEDGER prints checks. (IF YOU WANT 
IT TO) 

VERSALEDGER stores all check information 
forever. (IF YOU WANT IT TO) 

VERSALEDGER can distribute one check to 
multiple expense accounts. (IF YOU WANT IT 
TO) 

VERSALEDGER can handle more than one 
checkbook. (IF YOU WANT IT TO) 

VERSALEDGER can be used to replace a 
general ledger. (IF YOU WANT IT TO) 

VERSALEDGER HAS AN ALMOST UNLIMITED CAPACITY 

( 300 checks per month on single density SVa" disk drives such as the TRS-80 Model I) 

( 500 checks per month on the Apple II) 

(2400 checks per month on the TRS-80 Model III) 

VERSALEDGER will soon have an add-on payroll package. (IF YOU NEED IT) 

— CAN BE USED WITH 1 or MORE DISK DRIVES with 48K — 




INTRODUCTORY PRICE 
$99.95 



(6000 checks per month on the TRS-80 Model II) 
(3000 checks per month on single density 8" CP/M) 
(almost unlimited capacity on hard disk drive) 



VERSALEDGER HAS BEEN CREATED WITH THE FIRST TIME COMPUTER USER IN MIND 



30-Day Money Back Guarantee 
Also Available: VERSARECEIVABLES, VERSAPAYABLES, VERSAPAYROLL, and VERSAINVENTORY 



ninpuTHQuics 



V^N/UVTOttl. APT^UCATCTfSfc %,€wyr^" 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

IDD $3.00 FOR SHIPPING IN UPS AREAS 
iDO $4.00 FOR C.O.D. OR NON-UPS AREAS 
iDD $5.00 TO CANADA AND MEXICO 
.nn PRrtDPn oncTAric miTcinc ii c oau 



iM24 



HOUR 

ORDER 

LINE 




(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE 
nFi ivppv siin.iFrT to auaii arm itv 



PArCCLL SIMPLiriED 




• THE ULTIMATE PROFESSIONAL PAYROLL SYSTEM 

• HANDLES ALL PAYROLL FUNCTIONS AND REPORTS 
-k QUICK QUARTERLY AND END OF YEAR SUMMARIES 

• PERFECT FOR A SMALL BUSINESS 



• EXPANDS TO HANDLE LARGE CORPORATE PAYROLLS 



^ m^i'' mmi i wi 



• i^wm 



M. 



• m 



^TOBn* 



• TRS-80 is a Irademark^f Tandy Corp. - ' APPIE is a trademarli of Apple Corp. ■ 'I.B.H. is a trademarii of I.B.M. Corp. - 'XEROX is a trademark of Xerox Corp. - 'ATARI is a trademark of Atari Inc. 

h€W IT >v€cr$ 

VERSAPAYROLL is a complete menu driven payroll system ttiat grows as you or your business grows. Your VERSA- 
PAYROLL acts as a simple payroll system keeping track of all government required payroll information. Just enter tfie 
employees, VERSAPAYROLL will perform all tfie necessary payroll calculations automatically and display to totals 
on your screen. Tfie user fias complete control to accept tfie totals, to print or not print out a cfieck and to post or not 
post tfie total to our VERSALEDGER system. 

• VERSAPAYROLL automatically prints out your PAYROLL checks. (IF YOU 
WANT IT TO) 

• VERSAPAYROLL allows you to override any payroll deduction. (IF YOU WANT 
IT TO) 

• VERSAPAYROLL automatically posts all checks written to our VERSALEDGER 
system (IF YOU WANT IT TO) 

• VERSAPAYROLL allows the user to print out PAYROLL checks one at a time. 
(IF YOU WANT IT TO) 

• VERSAPAYROLL allows the user to print out all your PAYROLL checks at the 
same time (IF YOU WANT IT TO) 

• VERSAPAYROLL gives you a summary of any employee's year to date payroll 
totals or all employee totals at any time. (IF YOU WANT IT TO) 

• VERSAPAYROLL will allow you to correct any error made at any time and auto- 
matically refigure all totals. (IF YOU WANT IT TO) 

• VERSAPAYROLL works in every state. (IF YOU WANT IT TO) 

• VERSAPAYROLL automatically calculates all federal and states taxes. (IF YOU 
WANT IT TO) 

• VERSAPAYROLL allows for all of the standard deductions plus state, city and 
three miscellaneous deductions. (IF YOU WANT IT TO) 

• VERSAPAYROLL prints all government required reports. (IF YOU WANT IT TO) 

• VERSAPAYROLL permanently stores all PAYROLL transactions. (IF YOU WANT 
IT TO) 

• VERSAPAYROLL HAS AN ALMOST UNLIMITED CAPACITY .... 

Can handle up to 300 employees on a TRS-80 MODEL 1, 600 employees on a TRS-80 MODEL III, 1200 employees on a TRS-80 MODEL 
II, 500 employees on an APPLE II, 600 employees on any single density 8" CP/M computer and almost unlimited capacity on hard disk 
systems. 

CAN BE USED WITH 1 or MORE DISK DRIVES (AND 48K) 




INTRODUCTORY PRICE 
$99.95 



VERSAPAYROLL HAS REEN CREATED 
WITH THE FIRST TIME COMPUTER USER IN MIND 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



' ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE* 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 




THE CCLLECTCC! 



VERSA 
RECEIVABLES 



• THE ULTIMATE ACCOUNTS RECEIVABLE SYSTEM 

• HANDLES ALL ACCOUNTS RECEIVABLE FUNCTIONS 

• QUICK PERIODIC SUMMARIES AND REPORTS 

• PERFECT FOR PERSONAL OR BUSINESS USE 

• EXPANDS TO HANDLE LARGE CORPORATE 
RECEIVABLES 



\m4¥ mmi i dd, odd, m • m>m^ • Do@„i.* • mmw • mmp 

•TRS-80 is a trademark of Tandy Corp. ■ 'APPLE is a trademarli of Apple Corp. - I.B.M. is a trademarii of I.B.M. Corp. ■ 'XEROX is a trademarii of Xerox Corp. - 'ATARI is a trademark of Atari Inc. 
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CEiv^ 



10H' IT wocrs 

VERSARECEIVABLES is a complete menu driven accounts receivable system. It keeps track of all 
information related to who owes you or your company money. It prints all necessary statements, 
invoices and all summary reports to keep you In touch with the flow of money owed to your com- 
pany. In short, VERSARECEIVABLES is a complete invoicing and monthly statement generating 
system which keeps track of current and past due receivables. 

• VERSARECEIVABLES invoices your customers. (IF YOU WANT IT TO) 

• VERSARECEIVABLES prints customer mailing labels. (IF YOU WANT IT 
TO) 

• VERSARECEIVABLES generates monthly (or periodic) statements at 
any time. (IF YOU WANT IT TO) 

• VERSARECEIVABLES uses commonly available preprinted statements 
and invoices. (IF YOU WANT IT TO) 

• VERSARECEIVABLES allows partial payments on open invoices. (IF 
YOU WANT IT TO) 

• VERSARECEIVABLES prints out all commonly used ACCOUNTS 
RECEIVABLE reports to give you a total picture of money owed to your 
company. (IF YOU WANT IT TO) 

• VERSARECEIVABLES keeps a history of each account, both current and 
aged. (IF YOU WANT IT TO) 

• VERSARECEIVABLES is ideal for doctors, lawyers, small and large 
businesses. 

• VERSARECEIVABLES HAS AN ALMOST UNLIMITED CAPACITY .... 

400 customers and transactions per month on single density SW" disl< drives sucli as the TRS-80 Model I 

600 per month on the APPLE II 
2400 per month on the TRS-80 MODEL III 3000 per month on single density 8" CP/M 

6000 per month on the TRS-80 MODEL II Almost unlimited on hard disk drive systems 

Above capacities are estimates and depend on the customer-transaction mix and the amount of disk space available. 




etes 



INTRODUCTORY PRICE 
$9995 



VERSARECEIVABLES HAS BEEN CREATED 
WITH THE FIRST TIME COMPUTER USER IN MIND 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.0.0. OR NON-UPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 




ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE"* 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 






penal 

^^ VERSION 2.0 



The New Enhanced Version Of The 
World's Greatest Word Processor Is Here. 

The new ELECTRIC PENCIL 2.0 for TRS-80 Models I and III 
Available for Disk, Cassette and Stringy Floppy Systems 

The ELECTRIC PENCIL System is easy to learn and easy to use -- its simple command structure will make you a word processing 
expert in minutes. The ELECTRIC PENCIL Manual serves both as a quick reference guide and as a self-teaching manual, including 
pictures and examples. 
The ELECTRIC PENCIL 2.0 has more features than any other word processor for the TRS-80, including: 



n Easy to learn-easy to use-menu driven 

n All settings are displayed in menus 

O Extensive 'HOW-TO' documentation witti examples 

D Disk version supports tape and Stringy Floppy 

D Compatible w/ith all ASCII files (including BASIC'S) 

D Configure program to your own format 

D All print format settings saved with file 

D Runs on Ivlodel I and Model III 

D Runs under all versions of TRSDOS and NEWDOS 

D Fast buffer sfiift and type-atiead in 'INSERT mode 

D Underlining 

D No keyboard modifications required 

D Compatible with all lower case modifications 

n Three print drivers, (parallel, serial and TRS232) 

D Recognizes high memory 

D Uses printer DCB - you can use any print driver 

D Commands to load and save special print-drivers 

D Special print drivers may be loaded at any time 

D Set RS232C and TRS232 options from SYSTEM menu 

D Supports serial baud rates from 110 to 9600 baud 

D Supports 1500 and 500 baud tape operations 

D Cursor speed command 

D Incomplete/'bad' loads saved for your inspection 

n 'Printer hangs' eliminated 

D All file commands use standard TRS-80 mnemonics 

D ALL versions runs with 16K, 32K or 48K 

D Automatic print formatting 

O Automatic repeating keyboard 

n Automatic 'whole word' wrap-around 



D Cursor control - up - down - right - left 

D Cursor to end of file 

n Cursor to beginning of file 

D Tabbing 

D Scrolling - 5 speeds forward and reverse 

D Freeze and continue scrolling 

D Cursor to top of screen 

D Cursor to beginning of line 

D Delete and insert characters 

D Delete and insert lines 

D Erase line from cursor position to end 

n Insert and delete blocks of text 

D Backspace and erase characters 

D Search from 1 to 38 characters at one time 

D Replace from 1 to 38 characters at one time 

D Search without replace 

O 'Conditional' search and replace 

D Cursor positions over 'search' character 

D Selective (wild card) search and replace 

n Selective (wild card) search without replace 

D Search and replace carriage return and form feed 

D Repeat command 

D Hard Space character 

D Concatenation of long lines 

D Upper and lower case shift key lock 

D Exit any command with a single keystroke 

n Automatically displays free memory 

D Automatically displays words in file 

□ Selection of cursor speeds 



D Selective clearing of memory 

n Set your own power-up configuration 

D Warm start command 

D Optional automatic titling 

D Optional automatic page numbering 

n Right justification 

D Left margin may be set from to 255 spaces 

n Line length may be set from 1 to 255 characters 

D Line spacing may be set from 1 to 255 lines 

D Page length may be set from 1 to 255 lines 

D Page spacing may be set from to 255 lines 

n Starting page number may be from 1 to 65535 

n Optional print length may be set to print partial files 

n Multiple printing of text files 

n Single page printing 

D Printer configuration control: 

carriage return on/off 

line feed on/off 
n All options may be changed at any time 
D Loads any ASCII file 

n Compatible with all files created by previous releases 
n Easy backup - no fancy protection features 
D Cassette control for dictation - DICTAMATIC 
D Loads multiple files 

n Fast disk I/O - loads 36K in under 8 seconds 
D 36K text buffer (48K disk system) 
D All machine language program 
D Manual available separately 
n Source code available - 'THE ELECTRIC PENCIL HANDBC 



The ELECTRIC PENCIL 2.0 for TRS-80 Models I and III (disk) $ 89.95 

(cassette) $ 79.95 

(stringy floppy) $ 79.95 
Also Available: 

The ELECTRIC PENCIL II for TRS-80 Model II (TRSDOS version) $325.00 

(TRSDOS version for Diablo, Qume and NEC serial printers) $350.00 

(CP/M version) $275.00 

(CP/M version for DIABLO, QUME and NEC serial printers) $300.00 



•CQinPUTRQMICSi 

50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $S.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 




^. HOUR /^(^ 

24 ORDER (^^ 

LINE ^^ 

(914) 425-1535 



CENTRONrCS 

779 /RS 
LINE PRINTER I 

MAKE YOUR PRINTER 

A REAL WORKHORSE 

WITH OUR NEW 

PRINTER 

CONTROLLER 

BOARD 



Remove the controller board in your printer and 
plug ours in to add the following capabilities: 

• Bidirectional printing 

• Full UPPER/lower case ASCII plus TRS-80 
graphics or DSE scientifics character sets 
in 9 X 7 dot matrix format (9x9 available as 
option — requires print head change) 

• Motor control — turns off the motor when 
the printer is not in use 

• 2048 character buffer 

• Software selectable features 

• transfer protocol (XON/XOFF or 
none) 

• character densities (10, 12, 15, 16.5 
cpi plus double width in each size) 

• self-test 

• plus more! 

Introductory price 
$295 assembled and tested 

for orders placed before 6/30/82 



Digital 

Systems 

Engineering 




Suite 400 Carolyn Building 
10400 Eaton Place 



Fairfax, VA 22030 



(703) 385-0900 



VISA, MasterCard, check, COD accepted 



ADVERTISING DIRECTORY 

Cover4 Adventure International 1-800-327-7172 

63 ACS Software 617-255-0510 
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33 AT-80 214-339-0498 
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8 Computer Plus ..617-486-3193 

23 Computer Shopper 1-800-327-9920 

61 Computerware 714-436-3512 

63 Cornucopia Software .• 415-524-8098 

41 Cosmopolitan Electronics Corporation 313-397-3126 
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59 Electronic Specialists 1-800-225-4876 

59 Allen Gelder Software 415-487-3131 

61 GTI Electronics Co 71 7-386-4032 

37 Hacks 71 3-455-3276 
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73 H & S Computer Co 714-621-7747 

61 Illustrated Memory Banks/IMB 413-663-9648 

4 Kengore Corporation 201-297-2526 

57 Lemons Tech Services 41 7-345-7643 

19 Linn Computer Service 312-429-1915 

61 MISC. 

57 Micro Architect 

3 Micro Systems Software . . . 1-800-327-8724 ext. 197 

7 Options-80 

17 Powersoft 214-484-2976 

59 Prosoft 1-800-824-7888 ext. 422 

1 5 Roklan Software 31 2-297-5088 

45 See-Thru Enterprises 1-519-735-2995 

59, 68 Micro Journal 

28 Small Business Systems Group 617-692-3800 

Cover2 Soft Sector Marketing 1-800-521-6504 

8 Sound Software Systems 206-271-3427 

29 Spectral Associates 

27 Speedway Electronics 31 7-842-5020 

63 Superior Software 

63 Van Horn Office Supply 91 5-283-2920 

55 Virginia Micro Systems 703-491-6502 



68 June 1982 



iCQiriPUTflQI^JCSf 



The Original Magazine for Owners of the TRS-80™ Microcomputer 



MODEL I 



MODEL II • MODEL III • POCKET COMPUTER 



COLOR COMPUTER 



Software 

(or TRS-80 

Owners 



CQI^RJTHQMICS 

MONTHLY NEWS MAGAZINE 



Monthly 

Newsmagazine 

for TRS-80 

Owners 




• PRACTICAL APPLICATIONS 

• NEW EXPANDED BUSINESS 
SECTIONS 

• GAMBLING 

• GAMES 

• EDUCATION 

• PERSONAL FINANCE 



•BEGINNER'S CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS & ANSWERS 

• PROGRAM PRINT OUTS 
...and MORE! 



YOUR CHOICE ^ 



FREE 



A. 



with your Subscription or Renewal 



NANOS SYSTEMS CORP 

TRS-80 At Your 

Fingertips Complete quick 
reference guide to basic, assem- 
bly language and graphic codes 
— all at your fingertips for all 
TRS-80 computers (specify 
computer). 

Assembly Language Section NM iof Cotor Computer 



B. 



OR 



A Word Processor, 
Data Management 

System and Cleanup 

(A maze game) All on cassette. 
(Add $3 for diskette, add $5 for 
modified MOD-II diskette version 
— N/A on color computer or 
pocket computer.) 



ICQIYIPUTHDUICS 



CALL TOLL FREE 

800-431-2818 



50 North Pascack Road 

Spring Vafley, New York 10977 . , , 

^ ' (Outside of New York Slalel 

n One Year Magazine Subscription $24 D New D Renewal 

a Two Year Magazine Subscription $48,00 D New D Renewal 

D Sample Issue S*- □ Mod II Newsletter Subscription $18 

Your Choice THS-80 " at Your Fingertips or Word Processor/ Data Management □ 



Model I 



Model I 



Model III 



Color Computer 



Pocket Computer □ 



NEW! 



24 HOUR ORDER LINE 

914-425-1535 



NEW! 



MOD-II 

NEWSLETTER 

18/ Year (or 12 issues) 



Narne 




Address 






City 


State 


Zip 




Signature 






Credit Card Nurrjber 








Expiration Date 





A<Jd Sl^/Yaar (Canada, MexicoJ^Add S24/ Year Air Mailoulsideof USA , Canada, and Mexico 
All Prices and Specificatrons Subjecl to Change 

• TRS-60 IS a trademark of the Radio Shack Diviston of Tandy Corp 
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U S POSTAGE 
STANDARD 

BULK RATE 

Permit »Se 
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FORWARDING POSTAGE GUARANTEED 
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The jury is in and the verdict is . . , "outstanding!" 
Reviews from all of you who purchased MAXI 
MANAGER (not to mention raves by many top 
microcomputing nnagazines) have heralded it as the 
definitive data base managing system. We knew that 
business owners and hobbyists demanded the finest 
data base managing system available. To all of you 
who praised us for MAXI MANAGER, we extend our 
thanks. And to those of you who have yet to try MAXI 
MANAGER, we invite you to experience this incredible 
system today. But don't take our word for it (or our 
jury's). Judge for yourself. 
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JUST CHECK SOME OF THESE FEATURES 

Supports eight different relational search tectiniques. 

Comes with programmer's Interface. 

Over 180 pages of documentation. 

Supports up to 20 user deJined fields of 40 characters each. 

Record length up to 800 characters. 

Files can be up to four disks in length. 

Compatable 35, 40, 77 & 80 track dfives with proper 

operating system. 

Has calculated equation fields. 

Complete report generator. 

Works hand in hand with almost any word processor. 
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MAXI IvIANAGER for TRS-80 f^odels 1 & 3 Requires 48K of RAM and 1 
disk drive minimum. 

tvlODEL 1 version is compatable with NEWDOS 2 1 DBLDOS 
NEWDOS/80, DOSPLUS, TRSDOS, LDOS, VTOS. 
tvlODEL 3 version is compatable with LDOS 5,1 
and NEWDOS/80 version 2. 

h/IAXi MANAGER version comes on TDOS, a special 
version of the DOSPLUS operating system. 



For the TRS-80 Model 1 & 3 
Order No. 012-0096 
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